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1. TERMMOLOGY, NOTATION AND BASIC DEFINITIONS 

The Reference Language is a phrase structtire language^ defined by 
a formal met£0.£uiguage« This metalanguage makes use of. the notation and 
definitions explained below. The structure of the language AKJOL W 
is determined by: 

(1) V, thie set of basic constituents of the laaiguage, 

(2) U, the set of syntactic entities, and 

(5) ^t the set of syntactic rules, or productions. 

1.1. Notation 

A syntactic entity is denoted by its name (a sequence of letters) 
enclosed in the brackets < and >. A syntactic rule has the form 

'<P> ::= X 

where <J> is a member of U, x is any possible sequence of basic con- 
stituents and syntactic entities, simply to be called a "sequence". 
The form 

<A> ::- X I y I . . . I z 

is used as an abbreviation for the set of syntactic rules 

<A> s:= X 
<A> s:= y 



<P> ::= z 

1.2. Definitions 



1. A sequence x is said to directly produce a sequence y if and 
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only if there exist (possibly empty) sequences u and w, so that 
either (i) for some <P> in U, x = u<A>w, y = uvw, and <f> ?;» 
V is a r\ile in P; or (ii) x = uw, y = uvw and v is a "comment" 
(see below) . 

2 . A sequence x is said to, produce a sequence y if and only if 
there exists an ordered set of sequences s[0], s[l], ..* > 9[n], 
so that X = s[0], s[n] = y, and s[i-l] directly produces s[i] for 

all i = 1, . . . , n. 

3. A sequence x is said to be an ALGOL W program if €uid only if 
its constituents are members of the set V, and x can be produced 
from the syntactic entity <progran> . 

The sets V and U are defined through enumeration of their members 
in Section 2 of this Report (cf . also i^.^.).« The syntactic rules are 
given throughout the sequel of the Report . To provide explanations 
for the meaning of ALGOL W programs, the letter sequences denoting 
syntactic entities have been chosen to be English words describing 
approximately the nature of that syntactic entity or construct. VRiere 
words which have appeared in this manner are used elsewhere in the 
text, they refer to the corresponding syntactic definition. Along 
with these letter sequences the symbol T may occur. It is understood 
that this symbol must be replaced by any one of a finite set of Bnglish 
words (or word pairs). Unless otherwise specified in the particulair 
section, all occurrences of the symbol T within one syntactic jnile 
must be replaced consistently, and the replacing words are 



integer logical 

real bit 

long real string 

complex reference 
long complex 

For example, the production 

<T terno js=<T factor> (cf. 6,^.1.) 

corresponds to 

<integer term> ::- <integer factor> 

<real teriii> :;•- <real factor> 

<long real term> ::~- <long real factor> 

<complex terin> ::- <complex factor> 

<long complex terii1> - ' ■■- <long complex f actor> 

The production 

<T primary> : r= long <T primary> (cf. 6. 3.1. and 

table for long 

, . 6.5.2.7.) 

corresponds to - ' ' 

<long real primary> t:~ long <real primary> 
<long real primary> tt- l22£ <integer primary> 
<long complex primary> !:= long < complex primary> 

It is recognized that typographical entities exist of lower order 
than basic symbols , called characters . The accepted characters are 
those of the IBM System 56O EBCDIC code. 

The symbol comment followed by any sequence of characters not 
containing semicolons, followed by a semicolon, is called a comment. 
A comment has no effect on the meaning of a program, and is ignored 
during execution of the program. An identifier (cf. J.l.) immediately 
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following the basic symbol end is also regarded as a comment. 

The execution of a program can be considered as a sequence of 
units of action. The sequence of these units of action is defined as 
the evaluation of expressions and the execution of statements as de- 
noted by the program. In the definition of the implemented language 
the evaluation or execution of certain constructs is either (l) de- 
fined by System 5^0 operations, e.g., real arithmetic, or (2) left 
undefined, e.g., the order of evaluation of arithmetic primaries in 
expressions, or (3) said to be not valid or not defined. 

2. SETS OF BASIC SYMBOLS AlW) SYNTACTIC ENTITIES 

2.1. Basic Symbols 

A I B I C I D I E I F I G I H I I I J I K I L I M I N I I P I 
Q I R I S I T I U I V I W I X I Y I Z I 

I 1 I 2 I 5 I H 5 I 6 I 7 I 8 I 9 I 

true I false | " | null | # | « | 

integer | real | complex | logical | bits | string | 

reference | long real | long complex | array | 

procedure | record I 

^ I ; I H - I .( I ) I begin I end | if | then | else | 

case i of I -»- I - I * I / I ** I div; | rem | shr | shl | is | 

abs I long | short | and |or|-i|| |-|— 1=|<| 

<. |> |>= I :7 I 

" ' I go^o I S2 i2 I ^Q^ I step | until | do | while | 

comment | v alue | result 

All underlined words, which we call 'reserved words", are repre- 
sented by the same words in capital letters in an actual program, with 

nc intervening blanks. 



Adjacent reserved words, identifiers (cf. 3«1«) and nvimbers must include 
no blanks and must be separated by at least one blank space. Otherwise 
blanks have no meaning and can be used freely to improve the read- 
ability of the program. 



2.2. Syntactic Entities 

(with corresponding section numbers) 

<actual parameter list> 

<actual parameter> 

<bit factor> 

<bit primary> 

<bit secondary> 

<bit sequence> 

<bit term> 

<block body> 

<block head> 

<block> 

<bound pair list> 

<bound pair> 

<case clau8e> 

<case statement> 

<control identifier> 

<declaration> 

<digit> 

<dimension specification> 

<empty> seevpage 3^ 

<e quality operator> 

<expression list> 

<field list> 

<for clause> 

<for list> 

<formal array parameter> 

<formal parameter list> 

<formal parameter segment> 



7.3 


<fonnal type> 


5.3 


7.3 


<go to statement> 


l>h 


6.5 


<hex digit> 


h.3 


6.5 


<identifier list> 


3.1 


6.5 


<identifier> 


3.1 


^.3 


<if clause> 


6 


6.5 


<if statement> 


7.5 


7.1 


<imaginary number> 


i^.l 


7.1 


<increment> 


7.7 


7.1 


<initial value> 


7.7 


5.2 


<iterative statement> 


7.7 


5.2 


<label definition> 


7.1 


6 


<label identifier> 


3.1 


7.6 


<letter> 


3.1 


3.1 


<limit> 


7.7 


5 


<logical element> 


6,k 


3.1 


<logical factor> 


6,k 


5.3 


<logical primary> 


e.k 




<logical term> 


e.k 


e.h 


<logical value> 


k,2 


6.7 


<lower bound> 


5.2 


^.h 


<null reference> 


i^.5 


1-1 


<procedure declaration> 


5.3 


I'l 


<procedure heading> 


5.3 


5.3 


<procedure identifier> 


3.1 


5.3 


<procedure statement> 


7.3 


5.3 


<program> 


7 
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<proper procedure body> 3 3 

<proper procedure 

declaratior> 5»3 

<record class declaratior> 5'^ 

<record class identifier> ^.1 

<record class identifier 

list> 5.1 

<record designator> 6.7 

<relatiori> 6,k 

<relational operator> 6.k 

<s,cale factor> k,l 

<sigin> 4.1 

<simple bit expressiori> 6.5 

<simple logical expressioii> 6.k 

<simple reference 

expressiori> 6.7 

<simple statement> 7 

<simple string expressiori> 6.6 

<simple T- expressiorf> 6.3 

<siniple T variabl€> 6.1 

<simple ty^€> 5 .1 

<simple variable 

declaratior> 5'1 

<statement; list> 7 .6 

<statement> 7 

<string primary> 6.6 

<strin^ k .k 

<subarray designator list> 7.5 

<subscript> 6.1 

3. IDENTIEIERS 



<subscript list> 
<substring deslgnator> 


6.1 
6.6 


<T array declaration> 
<J array designator> 


5.2 
6.1 


<T array identifier> 


5.1 


<T assignment statement> 


7.2 


<T expression list>' 


6 


<T express ioit> 


6 


<T factor> 


6.3 


<T field designator> 


6.1 


<T field identifier> 


5.1 


<T function designator> 


6.2 


<T f\mction identifier> 


3.1 


<T function procedure body> 


5.3 


<T function procedure 
declaratior> 


5.3 


<T left part> 


7.2 


<T nuinber> 


k.l 


<T primary> 


6.3 


<T subarray designator> 
<r term> 


6.3 


<r variable> 
'<T "variable identifier> 


6.1 
3.1 


<unscaled real> 


i^.i 


<upper bound> 


5.2 


<while claus€> 


7.7 



3.1. Syntax 

<identifiei> :?= <lettei> | <identifier> <lettei> | <identifiei> <digit> 



'<T variable identifiei> j s = <identif iei> 
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<T array ident if iei> ::= <identifier> 

<procedure identifier> ;:= <identifier> 

<T function identifier> ::= <idehtifier> 

<record class identifier> ::= <identifi^> 

<T field identifier> ::= <identifier> 

<label identif ier> : : = <identif iei> 

<control identif ier> :j= <identifier> 

<letter> ::= a|b|c|d|e|f|g|h|i|j|k|l|m| 

n|o|p|q|r|s|t|u|v|w|x|y|z 

<digit> ::= 0|l|2|5|4|5|6|7|8|9 

<identifier list> :;= <identifier> | <identifier list> , <identifier> 

3'2. Semantics 

Variables, arrays, procedures, record classes and record fields 
are said to be quantities . Identifiers serve to identify quantities, 
or they stand as labels, formal parameters or control identifiers. 
Identifiers have no inherent meaning, and can be chosen freely in the 
reference language - In an actual program a reserved word cannot be 
used as an identifier. 

Every identifier used in a program must be defined. This is 
achieved through 

(a) a declaration (cf . Section 5)^ if the identifier identifies a 
quantity. It is then said to denote that quantity and to be a 

T variable identifier, T array identifier, T procedure identifier, 
T function identifier, record class identifier or T field iden- 
tifier, where the symbol T stands for the appropriate word re- 
flecting the type of the declared quantity; 

(b) a label definition (cf . 7«1')^ if the identifier stands as a 
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label. It is then said to be a label identifier; 

(c) its occurrence in a fonnal parameter list (cf. 5«3«)« I't is then 
said to be a fomial parameter; 

(d) its occurrence following the symbol for in a for clause (cf. 7.7.). 
It is then said to be a control identifier; 

(e) its implicit declaration in the language. Standard procedures, 
standard functions, and predefined variables (cf. 7.8 and 8) may be 
considered to be declared in a block containing the program. 

The recognition of the definition of a given identifier is 
determined by the following rules: 

Step 1. If the identifier is defined by a declaration of a 
quantity or by its standing as a label within the smallest block 
(cf. 7«1') embracing a given occurrence of that identifier, then 
it denotes that quantity or label. A statement following a 
procedure heading (cf. 5.3.) or a for clause (cf. 7.70 i^ considered 
to be a block. 

Step 2. Otherwise, if that block is a procedure body and if the 
given identifier is identical with a formal parameter in the asso- 
ciated procedure heading, then it stands as that formal parameter. 

Step 3* Otherwise, if that block is preceded by a for clause 
and the identifier is identical to the control identifier of 
that for clause, then it stands as that control identifier. 

Otherwise, these rules are applied considering the smallest 
block embracing the block which has previously been considered, 
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If either step 1 or step 2 could lead to more than one definition, 
then the identification is undefined. 

The scope of a quantity, a label, a formal parameter, or a con- 
trol identifier is the set of statements in which occurrences of an 
identifier may refer by the above r^oles to the definition of that 
quantity, label, formal parameter or control identifier. 

5.3. Examples 

I 

PERSON 
ELDERS IBLING 
XI5, X20, X25 

k, VALUES AND TYPES 

Constants and variables (cf. 6.1.) are said to possess a value. 
The value of a constant is determined by the denotation of the con- 
stant. In the language, all constants (except references) have a 
reference denotation (cf. i*- .1.-4 ,!<•.) . The value of a variable is the 
one most recently assigned to that variable. A value is (recursively) 
defined as either a simple value or a structured value (an ordered set 
of one or more values). Every value is said to be of a certain type. 
The following types of simple values are distinguished: 

integer ; the value is a 3^ bit integer, 

real ; the value is a 32 bit floating point number, 

long real ; the V8j.ue is a 64 bit floating point niamber, 

complex ; the value is a complex number composed of two 
numbers of type real , 
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long complex ; the value is a complex nvimber composed of two 
long real numbers, 

logical: the value is a logical value, 

bits ; the value is a linear sequence of 32 bits, 

string ; the value is a linear sequence of at most 256 char- 
acters, 

reference ; the value is a reference to a record. 

The following types of structured values are distinguished: 

array ; the value is an ordered set of values, all of identi- 
cal simple type, 

record: the value is an ordered set of simple values. 

A procedure may yield a value, in which case it is said to be a 
function procedure, or it may potiyleld A value, . in which case It is 
called a proper procedure. The value of a function procedure is de- 
fined as the value which results from the execution of the procedure 
body (cf. 6.2.2.). 

Subsequently, the reference denotation of constants is defined. 
The reference denotation of any constant consists of a sequence of 
characters. This, however, does not imply that the value of the de- 
noted constant is a sequence of characters, nor that it has the pro- 
perties of a sequence of characters, except, of covirse, in the case 
of strings . 

k .1. Numbers 

l4-.l.i. Syntax 

<long complex number> ;:= <complex number>L 

< complex number> ::= < imaginary nupiber> 

<imaginary number> ::= <real number>I | <integer number>I 
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<long real nuinber> ::= <real number>L | <integer number>L 
<real number> ::- <unscaled real> | <unscaled real> <scale factor> 

<integer number> <scale factor> | <scale factor> 
<unscaled real> : : = <integer number> • <integer nuinber> | 

•<integer number> | <integer number> 
<scale factor> ::= '<integer number> J '<sign> <int€ger number> 
<integer nuniber> ::= <digit> | <integer nuraber> <digit> 
<sigr> : := + I - 

^.1.2. Semantics 

Numbers are interpreted according to the conventional decimal 
notation. A scale factor denotes an integral power of 10 which is 
multiplied by the unsealed real or integer number preceding it. Each 
number has a uniquely defined type. (Note that all <T number>s are 
unsigned. ) 

4.1.3. Examples 

1 .5 II 

0100 i'5 0.671 

5.l4l6 6. 02486 '+25 IIL 

2. 71828182845904 523 5560287L 2. 3 ' -6 

4.2. Iiogical Values 

4.2.1. Syntax 

<logical value> : := true | false 
4.3» Bit Sequences 

4.3'1» Syntax 

<bit sequence> ;:= # <hex digit> | <bit sequence> <hex digit> 
<hex digit> ::- | 1 | 2 | 3 I 4 | 5 I 6 | 7 I 8 | 9 I A | B 
C I D I E I F 
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Note that 2 | ... | F corretponds to 2 | ••• | 15 -.q. 

i^■.3.2. Semantics 

The number of bits in a bit sequence is 3^ or 8 hex dl|fita... .3Bhe 
bit sequence is al-ways represented by a 3^ t)i^ word with the specified 
bit sequence right justified in the word and zeros filled in ©n the 
left . 

if . 3 • 3 • Examples 

#1+F = 0000 0000 0000 0000 0000 0000 0100 1111 
#9 = 0000 0000 0000 0000 0000 0000 0000 1001 

k-.k . strings 

k.k.l. Syntax 

<strin^ :: = ' "<sequence of character;^" 

k ,k .2. Semantics 

Strings consist of any sequence of (at »o«t 256) characters ac- 
cepted by the System 3^0 enclosed by ", the string: quote. If the 
string quote appears in the sequence of characters it must be imme- 
diately followed by a second string quote which is then ignored. The 
number of characters in a string is said t© \>e the length of the 
string. 

k,k.^. Examples 

"JOHN" 

"""" is the string of length 1 consisting of the string 

quote . 
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k .^ , References 

4.5.1. Syntax 

<null ref erence> : : = null 

4.5.2. Semantics 

The reference value null fails to designate a record; if a refer- 
ence expression occurring in a field designator (cf . 6.1.) has this 
value, then the field designator is undefined. 

5. DECLARATIONS 

Declarations serve to associate identifiers with the quantities 
used in the program, to attribute certain permanent properties to 
these quantities (e.g. type, structure), and to determine their scope. 
The quantities declared by declarations are simple variables, arrays, 
procedures and record classes . 

Upon exit from a block, all quantities declared or defined within 
that block lose their value and significance (cf. 7'l-2. and J.k.2.). 

Syntax: 

<declaratiori> ::= <simple variable declaratiorO | <T array 

declaratior> | <procedure declaratiorO | 
<record class declaratiori> 

5'1' Simple Variable Declarations 

5.1.1, Syntax 

<siniple variable declaratior> ::= <simple typ€> <identifier list> 
<simple typ€> ::= integer | real | long real | complex | long 

complex I logical | bits | bits (52) | 
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string I string (<integer nuinber>) | reference 
(<record class identifier list>) 
<record class identifier list> ::== <record class identifer> | 

<record class identifier list> , 
<record class identifier> 

5.1.2. Semantics 

Each identifier of the identifier list is associated with a 
variable which is declared to he of the indicated tjrpe. A variable is 
called a simple variable, if its value is simple (cf. Section k)» If 
a variable is declared to be of a certain type, then this implies that 
only values which are assignment compatible with this type (cf. 7 •2.2.) 
can be assigned to it. It is understood that the value of a variable 
is equal to the value of the expression most recently assigned to it. 

A variable of type bits is always of length ^2 whether'" or not 
the declaration specification- is included. 

A variable of type string has a length equal to the unsigned 
integer in the declaration specification. If the simple type is 
given only as string , the length of the variable is 16 characters. 

A variable of type reference may refer only to records of the 
record classes whose identifiers appear in the record class identi- 
fier list of the reference declaration specification. 

5.1.3* Examples 

integer I, J, K, M, N 
real X, Y, Z 
long complex C 
logical L 
bits G,. H 
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string (10) S, T 

reference (PERSON) JACK, JILL 

5.2. Array Declarations 

5.2.1. Syntax 

<T array declaration> :s=<simple type> array <ldentlfier llst> 

(<boiind pair llst>) 
<bound pa^lr llst> ;:» <bound palr> | <l)ound pair llst>,<bound 

pali> 



<bound pali> 
<lovrer bound> 
<upper bound> 



= <lower bound> : : <upper boun(^ 
:= <lnteger expresslor> 
:= <lnteger expressioi:> 



3.2.2. Semantics 

Each Identifier of the Identifier list of an array declaration Is 
associated with a variable which Is declared to t)e of .type array . A 
variable of type array Is an ordered set of variables whose type is the 
9^imple type preceding the symbol array . The dimension of the array is 
the number of entries in the bound pair list. 

Every element of an array- is identified by a list of indices. 
The indices are the integers between and Including the values of the 
lower bound and the upper bound. Every expression in the bound pair 
list is evaluated exactly once upon entry to the block in which the 
declfiLration occurs. The bound. pair expressions can depend only on 
variables and procedures global to the block in which the declaration 
occurs* In order to be valid, for every bound pair, the value of .the 
upper bound must not be less than the value of the lower bound. 

5«2.3. Examples 

integer array H(l;!lOO) 
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real array A, B(1::M, 1::N.' 

string (12) array STREET, TOWN, CITY (J:jK + l) 

5-^. Procedure Declarations 

5.3«1' Syntax 

<procedure declaratiori> ::=<proper procedure declaration> | 

<T function procedure declaratior]> 
<proper procedure declaratiori> ;s- procedure <procedure heading>; 

<proper procedure bodjC> 
<T function procedure declaration> ::= <simple typ^ procedure 

<procedure heading>; 
<T function procedure body> 
<proper procedure bodjC> : ; = <statement> 
<T function procedure body> :j= <T expressiori> | <block body> 

<T express ion> end 
<procedure heading> : : = <identif ier> | <identifier> (<formal 

parameter list>) 
<f ormal parameter list> : t = <f ormal parameter segment> | 

<formal parameter list> ; <formal 
parameter segment> 
<f ormal parameter segnient> ::= <f ormal type> <identifier list> | 

<formal array parameter> 
<f ormal type> ::= <simple type> | <simple type> value | <simple 

type> result | <simple type> value result | 
< simple type> procedure | procedure 
<f ormal array parameter> ::= <Biraple type> array <ideht if ier 

list> (<dimension specificatioit>) 
<dimension specif ication> ;:= * | <dimension specificatiori> , * 

5. 5 '2. Semantics 

A procedure declaration associates the procedure body with the 
identifier immediately following the symbol procedure . The principal 
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part of the procedure declaration is the procedure body. Other parts 
of the block in whose heading the procedure is declared can then cause 
this procedure body to be executed or evaluated. A proper procedure 
is activated by a procedure statement (cf . I'J).), a function procedure 
by a function designator (cf. 6.2.). Associated with the procedure 
body is a heading containing the procedure identifier and possibly a 
list of formal parameters . 

5.3'2.1. Type specification of formal parameters. All formal para- 
meters of a formal parameter segment are of the same indicated type. 
The type must be such that the replacement of the formal parameter by 
the actual parameter of this specified type leads to correct ALGOL W 
expressions and statements (cf. 7'5«2.)« 

5.3.2.2. The effect of the symbols value and result appearing in a 
formal type is explained by the following rule^ which is applied to 
the procedure body before the procedure is invoked: 

(1) The procedure body is enclosed by the symbols begin and end 
if it is not already enclosed by these symbols; 

(2) For every formal parameter whose formal type contains the 
symbol value or result (or both), 

(a) a declaration followed by a semicolon is inserted after 
the first begin of the procedure body, with a simple 
type as indicated in the formal type, and with an iden- 
tifier different from any identifier valid at the place 
of the declaration. 

(b) throughout the procedure body, every occurrence of the 
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formal parameter identifier is replaced by the identifier 
defined in step 2a j 

(3) If the formal type contains the symbol value , an assignment 
statement (cf. 7.2.) followed by a semicolon is inserted 
after the declarations of the procedure body. Its left part 
contains the identifier defined in step 2a, and its expression 
consists of the formal parameter identifier. The symbol 
value is then deleted; 

(k) If the formal type contains the symbol result, an assignment 

statement preceded by a semicolon is inserted before the symbol 
end which teiTiiinates a proper procedure body. In the case 
of a function procedure, an assignment statement preceded 
by a semicolon is inserted after the final expression 
of the function procedure body. Its left part contains the 
formal parameter identifier, and its expression consists of 
the identifier defined in step 2a. The symbol result is 
then deleted. 

5.3.2.5. Specification of array dimensions. The number of '"-^"'s 
appearing in the formal array specification is the dimension of the 
array parameter. 

5 . 5 • 3 . Example s , 

procedure INCREMENT; X := X+1 
real procedure MAX ( real value X, Y); 
if X < Y then Y else X 
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procedure COPY ( real array U, V (*,*); integer value A, B); 
for I : = 1 until A do 
for J := 1 until B do U(l,j) := V(l,j) 

real procedure HORNER (real array A (*) ; integer value N; 
real value X); 
begin real S; S i- 0; 

for I s- until N do S := S •'^ X + A(i); 

S 
end 

long real procedure SUM ( integer K, N; long real X); 
begin long real Y; Y := 0; K t= N; 

while K > = 1 do 

begin Y ;= Y + X; K ;= K - 1 

end ; 

Y 
end 

reference (PERSON) procedure YOUNGESTUNCLE ( reference (PERSON) R); 
begin reference (PERSON) P, M; 

P := YOUNGESTOFFSPRING (FATHER (FATHER (R))); 
while (P -I = null ) and (-i M/VLE (P)) or 
(P =^ FATHER (R)) do 
P s= ELDERSIBLING (P); 
M := YOUNGESTOFFSPRING (MOTHER (MOTHER (R))); 
while (M -1 = null) and (-i MA.LE (m)) do 

M s= ELDERSIBLING (m); 
il! ^ = ^^^11 then M else 
if M = null then P else 
if AGE(P) < AGE(M) then ,P else M 
end 
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5A. Record Class Declarations 
5.^.1. Syntax 

<record class declaration> ::?p record <identifier> (<field list>) 
<field list> ::= <simple variable declaration> | <field list> ; 
<simple variable declaration> 

5.^.2. Semantics 

A record class declaration serves to define the structural pro- 
perties of records belonging to the class. The principal constituent 
of a record class declaration is a sequence of simple variable declar- 
ations which define the fields and their simple types for the records 
of this class and associate identifiers with the individual fields. 
A record class identifier can be used in a record designator (cf. 6.7.) 
to construct a new record of the given clasis. 

5.^.3. Examples 

record NODE ( reference (NODE) LEFT, RIGHT) 
record PERSON ( string NAME; integer AGE; logical MALE; 
reference (PERSON) FATHER, MOTHER, YOUNGESTOFFSPRING , 
ELDERSIBLING) 

6. EXPRESSIONS 

Expressions are rules which specify how new values are computed 
from existing ones. These new values are obtained by performing the 
operations indicated by the operators on the values of the operands. 
The operands are either constants, variables or function designators, 
or other expressions, enclosed by parentheses if necessary. The evalu- 
ation of operands other than constants may involve smaller units of 
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action such as the evaluation of other expressions or the execution 
of statements. The value of an expression between parentheses is 
obtained by evaluating that expression. If an operator has two operands, 
then these operands may be evaluated in any order with' the exception 
of the logical operators discussed in 6.4.2.2. Several simple types 
of expressions are distinguished. Their structure is defined by the 
following rules, in which the symbol T has to be replaced consistently 
as described in Section 1, and where the triplets ^ , 3* , T have to 
be either all three replaced by the same one of the words 

logical 

bit 

string 

reference 
or by any combination of words as indicated by the following table, 
which yields Tq given T, and Tpi 
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integer real complex 



integer 
real 



integer 
real 



real 


complex 


real 


complex 


complex 


complex 



complex complex 

T T T 

has the quality "long" if either both -^ and have that quality, 

or if one has the quality and the other is "integer". 

Syntax: 

<J expression> ::= <simple T expression> | <case clause> 

(<^ expression list>) 

<^Q expression> : := <if elaus^ <!r-. expressiori> else 

<T express ion> 
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<T expression list> ::= <T expression> 

<T expression list> ::= <T expression list> , <T expression> 

<if clause> ::= if <logical expression> then 

<case clause> ::= case <integer expression> of 

The construction 

<if clause <T^ expression> else <^^ expression> 
causes the selection and evaluation of an expression on the basis of 
the current value of the logical expression contained in the if clause. 

If this value is true, the expression following the if clause is 
selected; if the value is false, the expression following else is se- 
lected. If 7 and 7 are simple type string , both string expressions 
must have the same length. The construction 

<case clause> (<T expression list>) 
causes the selection of the expression whose ordinal number in the 
expression list is equal to the current value of the integer expression 
contained in the case clause. In order that the case expression be 
defined, the current value of this- expression must be the ordinal number 
of some expression in the expression list. IfTis simple type string , 
all the string expressions must have the same length. 

6.1. Variables 

6.1.1. Syntax 

<simple 3* variable> ::= <3' variable identifier> | <y field designator> 

<T array designator> 
<T variable> ::= <simple T variablo> 
<string variable> ::= <substring designator> 

<r field designator> ::= <Tfield identifier> (<reference expression>) 
<r array designator> ::= < T array identifier> (<subscript list>) 
<subscript list> ::= <subscript> | <subscript list>, <subscript> 
<subscript> ::= <integer expressipn> 
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6.1.2. Semantics 

An array designator denotes the variable whose indices are the 
current values of the expressions in the subscript list. The value of 
each subscript must lie within the declared bounds for that subscript 
position. 

A field designator designates a field in the record referred to 
by its reference expression. The simple type of the field designator 
is defined by the declaration of that field identifier in the record 
class designated by the reference expression of the field designator 
(cf. 5A.). 

6. 1.3* Examples 

X A(l) M(I+J, I-J) 

FATHER (jack) MOTHER ( FATHER ( JILL )) 

6.2. Function Designators 

6.2.1. SyntaK 

<T function designator> ::= <7 function identifier> | <T function 

identifier> (<actual parameter list>) 

6.2.2. Semantics 

A function designator defines a value which can be obtained by a 
process performed in the following steps: 

Step 1. A copy is made of the body of the function procedure 
whose procedure identifier is given by the function designator 
and of the actual parameters of the latter. 

Steps 2, ^, k, As specified in 7.3«2. 
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step 5. The copy of the function procedure body, modified as indicated 
in steps 2-4, is executed. Execution of the expression which constitutes 
or is part of the modified procedure body consists of evaluation of that 
expression, and the resulting value is the value of the function desig- 
nator. The simple type of the function designator is the simple type 
in the corresponding function procedure declaration. 

6.2.5. Examples 

MAX (X ^ 2, Y -^ 2) 

SUM (I, 100, H(l)) 

SUM (I, M, SUM (J, N, A(I,J))) 

YOUNGESTUNCLE (JILL) 

SUM (I, 10, X(I) ^ Y(l)) 

HORNER (X, 10, 2.7) 

6.5. Arithmetic Expressions 

6.5.1. Syntax 

In any of the following rules, every occurrence of the symbol T 

must be systematically replaced by one of the following words (or 

word pairs): 

integer 
real 

long real 
complex 
long complex 

The rules governing the replacement of the symbols ^ r^y ^ -^ ^^^ ^o ^^^ 

given in 6.5.2. 

<simple ^ expression> ::= <Tterm> | + <Tterm> | - <T term> 
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<simple T- expressior]> :;= <siinple 7 expression> + <J'^ tern]> 



<simple 7 expression> - <['^ tenn> 



<r tenn> 
<rQ term> 
<T^ te3:Tn> 



= <f factor> 



:= <r tenn> * <^ factor> 



:= <T tenn> / <T factor> 
<integer tenn> ::= <integer term> div <integer factor> | 

<integer tenn> rem <integer factor> 
= <r-^ priinary> | <r factor> ** <integer primary> 
ss abs <r^ primary> 



<I'^ factor> 
<r primary> 
<Tq primary> 
<f primary> 
<T primary> 



~ iQJ^S "^^-i primary> 
= short <r^ priinary> 



= <r variable> | <f function designator> | 
{<[' expression>) | <f nuin'ber> 
<integer priinary> ::= <control identifier> 



6.5 •2. Semantics 

An arithmetic expression is a rule for computing a number. 

According to its simple type it is called an integer expression, 
real expression, long real expression, complex expression, or long 
complex expression. 

6.3.2.1. The operators +, -, ^, and / have the conventional meanings 
of addition, subtraction, multiplication and division. In the relevant 
syntactic inles of 6.3.1. the symbols 7^, T and 7 have to be replaced 
by any combination of words according to the following table which 
indicates 7^ for any combination of T, and T^. 

Operators + | ~ 




real 



complex 



integer 

real 

complex 



real 


complex 


real 


complex 


complex 


complex 
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T has the quality "long" if both T and T^ have^the quality 
"long", or if one has the quality "long" and the other is "integer". 



Operator * 



integer 



real 



complex 



integer 


integer 


long real 


long complex 


real 


long real 


long real 


long complex 


complex 


long complex 


long complex 


long complex 



t or T- having the quality "long" does not affect the type of 



the result . 



Operator / 




integer 



real 



complex 



long real 


real 


complex 


real 


real 


complex 


complex 


complex 


complex 



Tq has the quality "long" if both T and T have the quality 
"long", or if one has the quality "long" and the other is "integer", 
or if both are "integer". 
6. 5 '2. 2. The operator "-" standing as the first symbol of a simple 

expression denotes the monadic operation of sign inversion. The type 
of the result is the type of the operand. The operator "+" standing 
as the first symbol of a simple expression denotes the monadic opera- 
tion of identity. 

6. 3 •2. 3' The operator div is mathematically defined (for B ^ O) as 



A div B = SGN (A X Bj X D (abs A, abs B) 



(cf. 6.3.2.6.) 
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where th^ function propedures SGN and D are declared as 



integer procedure SGN ( integer value A); 
if A < then -1 else 1; 

integer procedure D ( integer value A> B) ; 
if A < B then else D(A-B, B) +1 

6.3«2.4. The operator rem (remainder) is mathematically defined as 

A rem B = A - (A div B) X B 

6,3»2.5. The operator ^^ denotes exponentiation of the first operand 
to the power of the second operand. In the relevant syntactic rvCLe of 
6.5,1. the symbols T and T are to be replaced by any of the follow- 
ing combinations of words: 

^0 



long real 

real 

complex 



integer 

real 

complex 



7 has the quality "long" if T. does or if T-, is "integer". 
6.5e2o6. The monadic operator abs yields the absolute value or modulus 
of the operand. In the relevant syntactic rule of 6.3»1» the symbols T 
and T- have to be replaced by any of the following combinations of words; 



^0 


^1 


integer 


integer 


real 


real 


real 


complex 



If T has the quality "long", then so does T., 

32 



6. 5 • 2.7' Precision of arithmetic. If the result of an arithmetic 
operation is of simple type real, complex , long real , or long complex 
then it is the mathematically understood result of the operation per- 
formed on operands which may deviate from actual operands. 

In the relevant syntactic rules of 6.3«1' the symbols T and 3* ' 
must be replaced by any of the following combinations of words (or 
word pairs): 

Operator long 



^0 


''i 


long 


real 


real 


long 


real 


integer 


long 


complex 


complex 



Operator short 







real 
complex 



long real 
long complex 



6.3«3* Examples 

C + A(I) * ^(l) 

EXP (-X/(2 * SIGMA)) / SQRT (2 ^ SIGMA) 

6A. Logical Expressions 

6Ui-.l. Syntak 

In the following rules for <relatiori> the symbols T and T must 
either be identically replaced by any one of the following words: 
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bit 

string 

reference 

or by any of the words from? 

complex 
long complex 
real 

long real 
integer 

and the symbols T or T must be identically replaced by string or 

must be replaced by any of real, long real, integer. 

<simple logical expressioE> ::= <logical element> | <relatior> 
<logical element> ::= <logical tern> | <logical element> or 

<logical terrri> 
<logical terni> ::= <logical factor> | <logical teriii> and 

<logical factor> 
<logical factor> ::= <logical primary> | ~i <logical primarj^ 
<logicaJL primary> ::= <logical value> | <logical variabl€> | 

<logical function designator> | 
(<logical express ior>) 
<relatior> ::= <simple 7 expressibrO <equality operator> 
<simple T expressior> | <logical element> 
<equality operator> <logical element> ( 

<simple reference expression> is 

<record class identifier> | 

<simple T^ expression> <relational operator> 

<simple T^ expressioii> 
<relational operator> ::=< |<= |>= |> 
<equality operator> : := = | -i = 
6.^.2. Semantics 

A logical expression is a rule for computing a logical value. 
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6.i+.2.1. The relational operators represent algebraic ordering for 
arithmetic arguments and EBCDIC ordering for string arguments. If two 
strings of unequal length are compared, the shorter string is extended 
to the right by characters less than any possible string character. 
The relational operators yield the logical value true if the relation 
is satisfied for the values of the two operands; false otherwise. Two 
references are equal if and only if they are both null or both refer 
to the same record. Two strings are equal if and only if they have 
the same length and the same ordered sequence of characters. The operator 
is yields the logical value true if the reference expression designates a 
record of the indicated record class; false otherwise. The reference 
value null fails to designate a record of any record class. 

6.^4-. 2.2. The operators -i (not), and , and or, operating on logical 
values, are defined by the following equivalences: 

—1 X if X then false else true 

^ B:B^ ^ M ^ "^^^^ Y else false 
X or y if X then true else Y 

6,k.3* Examples 

P or Q 

(X < Y) and (Y < Z) 
YOUNGESTOFFSPRING (JACK) -i = null 
FATHER (JILL) i£ PERSON 

6.5. Bit Expressions 
6.5.1» Syntax 

<simple bit expression> ::= <bit tenii> | <simple bit expression> 

or <bit term> 
<bit term> ::= <bit factor> | <bit term> and <bit factor> 
<bit factor> ::= <bit secondary> | — 1 <bit secondary> 
<bit secondary> ::= <bit primary> | <bit secondary> shl 

<integer primary> | <bit secondary> shr 
<integer primary> 
<bit primary> ::= <bit sequence> | <bit variable> | <bit vacf '^S 

function designator> I (<bit expression>) 



6.5.2. Semantics 

A bit expression is a rule for computing a bit sequence. 

The operators and, or, and -i produce a result of type bits , every 
bit being dependent on the corresponding bit(s) in the operand(s) as 
follows: 



X 


Y 


-iX 


X and Y 


X 


or Y 








1 













1 


1 







1 


1 













1 


1 


1 





1 




1 



The operators shl and shr denote the shifting operation to the 
left and to the right respectively by the number of bit positions 
indicated by the absolute value of the integer primary. Vacated bit 
positions to the right or left respectively are assigned the bit 
value 0. 

6.5.3' Examples 

G and H or #^8 

G and -i (H or G) shr 8 

6.6. String Expressions 

6.6.1. Syntax 

<simple string expression> : := <string primary> 

<string primary> : := <string> | <string variable> | <string 

function designator> | (<string expression>) 
<substring designator> ::= <simple string variable> 

(<integer expressior£>l <integer number>) 
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6.6.2. Semantics 

A string expression is a rule for computing a string (sequence of 
characters). 

6.6.2.1. A substring designator denotes a sequence of characters of 
the string designated by the string variable. The integer expression 
preceding the I selects the starting character of the sequence. The 
value of the expression indicates the position in the string variable. 
The value must be greater than or equal to and less than the declared 
length of the string variable. The first character of the string has 
position 0. The integer number follov/ing the H indicates the length 
of the selected sequence and is the length of the string expression. 
The sum of the integer expression and the integer number must be less 
than or equal to the declared length of the string variable. 

6.6,'^. Example 

string (10) S; 
S (i^l5) 
S (I+Jll) 

string (lO) array T (l::m>2::n); 
T (4,6) (515) 

6o^o Reference Expressions 

6o7»l' Syntax 

<simple reference expression> : ;= <null reference> | <reference 

variable> | <reference function 
designator> | <record designator> 
(<reference expression>) 
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<record designator> ;:= <record class identifier> | <record 

class identifier> (<expression list>) 
<expression list> ::ss <r expression> | <expression list>, 

<r expression> 

6,7.2. Semantics 

A reference expression is a rule for computing a reference to a 
record. 

The value of a record designator is the reference to a newly 
created record belonging to the designated record class. If the 
record designator contains an expression list, then the values of the 
expressions are assigned to the fields of the new record. The entries 
in the expression list are taken in the same order as the fields in 
the record class declaration,, and the simple types of the expressions must 
be assignment compatible with the simple types of the record fields 
(cf. 7.2.2.). 

6.7.3« Example 

PERSON ("CAROL'S 0, false , JACK, JILL, null , YOIMGESTOFFSPRING 

(jack)) 

6.8. Precedence of Operators 

The syntax of 6,'^,!., 6.i+.l., and 6. 5.1. implies the following 

hierarchy of operator precedences: 

long , short , abs 
shl , shr, ^^ 

—1 
•^, /, div , rem, and 
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Example 

A = B and C is equivalent to A = (B and C) 

7. STATEMENTS 

A statement denotes a unit of action. By the execution of a 
statement is meant the performance of this unit of action^ which may 
consist of smaller units of action such as the evaluation of expres- 
sions or the execution of other statements. 

Syntax: 

<prograiri> ::= <bloclC> 

<statement> ::= <simple statement> | <iterative statement> | 

<if statement> | <case statement> 
<simple statements ::= <bloclO | <T assignment statement> | 

<empt;^ | <procedure statements | 

<goto statements 

7.1. Blocks 

7.1.1. Syntax 

<blocie> ::= <block body> <statement> end 

<block body> ::= <block head> | <block body> <statement>; | 

<block bodjS <label definitiorS 
<block head> ::= begin | <block head> <declaration> ; 
<,label definitiori> ::= <identifi€r> : 

7.1.2. Semantics 

Every block introduces a new level of nomenclature. This is 
realized by execution of the block in the following steps: 
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step 1. If an identifier, say A, defined in the block head or 
in a label definition of the block body is already defined at 
the place from which the block is entered, then every occurrence 
of that identifier. A, within the block except for occurrence in 
array bound expressions is systematically replaced by another 
identifier, say APRIME, which is defined neither within the 
block nor at the place from which the block is entered. 

Step 2. If the declarations of the block contain array bound 
expressions, then these expressions are evaluated. 

Step 5.' Execution of the statements contained in the block body 

begins with the execution of the first statement following the 

block head. 

After execution of the last statement of the block body (unless 
it is a goto statement) a block exit occurs, and the statement follow- 
ing the entire block is executed. 

7.1.5. Example 

begin real U; 

U := X; X := Y; Y := Z; Z := U 
end 

7.2. Assignment Statements 

7.2.1. Syntax 

In the following rules the symbols T and T must be replaced by 
words as indicated in Section 1, subject to the restriction that the 
type T is assignment compatible with the type 7 as defined in 7.2.2. 
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^r assignment stateinent> :;= <r^ left part> <r expression> | 

<f left part> <r assignment 
statement> 

<r left part> ::= <T variable> := 

7.2.2, Semantics 

The execution of a simple assignment statement 

<f assignment statement> ::= <T left part> <T, expression> 

causes the assignment of the value of the expression to the variable. 

If a shorter string is to be assigned to a longer one^ the shorter 

string is first extended to the right with blanks until the lengths are 

equal. In a multiple assignment statement 

(<T assignment statement> ::= <T left part> <r^ assignment 

statement>) 

the assignments are performed from right to left. For each left part 

variable, the simple type of the expression or assignment variable immediately 

to the right must be assignment compatible with the simple type of that 

variable. 

A simple type T-, is said to be assigranent compatible with a simple 

type T^ if either 

(1) the two types are identical (except that if T and T" are 
string , the length of the 7 variable must be greater than 

or equal to the length of the T expression or assignment), or 

(2) T is real or long real , and T is integer, real or long 
real or 

(3) T^ is complex or long complex, and T is integer , real , 
long real , complex or long complex . 

In the case of a reference, the reference to be assigned must refer 
to a record of one of the classes specified by the record class identifiers 
associated with the reference variable in its declaration. 
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7.2.3. Examples 

Z := AGE (jack) := 28 



X 

C 
P 



= Y + abs Z 
= I + X + C 
= X -1 = Y 



7.3. Procedure Statements 

7.3.1. Syntax 

<proced.ure statement> :;= <proced.ure identifier> | <procedure 

identifier> (<actual parameter list>) 
<actual parameter list> ;:= <act-ual parameter> | <actual 

parameter list> ^ <actual parameter> 
<actual parameter> ::= <T expression> | <statement> | <f subarray 

designator> | <procedure identifier> | 
<J function identifier> 
<J subarray designator> ::= <J array identifier> | <T array 

identifier> (<su'barray designator 
list>) 
<sUbarray designator list> ;:= <subscript> | * | <subarray 

designator list>,<subscript> | 
<subarray designator list>^* 

7.3.2. Semantics 

The execution of a procedure statement is equivalent to a process 
performed in the following steps: 

Step 1. A copy is made of the body of the proper procedure whose 
procedure identifier is given by the procedure statement, and of 
the actual parameters of the latter. The procedure statement is 
replaced by the copy of the procedure body. 

Step 2. If the procedure body is a block, then a systematic 
change of identifiers in its copy is performed as specified by 
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step 1 of 7.1.2. 

Step 3« The copies of the actual parameters are treated in an 
undefined order as follows: If the copy is an expression 
different from a variable, then it is enclosed by a pair of 
parentheses, or if it is a statement it is enclosed by the symbols 
begin and end . 

Step k. In the copy of the procedure body every occurrence of an 
identifier identifying a formal parameter is replaced by the copy 
of the corresponding actual parameter (cf. 7.3.2.I.), In order 
for the process to be defined, these replacements must lead to 
correct ALGOL W expressions and statements. 

Step 5« The copy of the procedure body, modified as indicated in 
steps 2-k, is executed. 

7.5»2.1. Actual -formal correspondence. The correspondence between 
the actual parameters and the formal parameters is established as 
follows: The actual parameter list of the procedure statement (or 
of the function designator) must have the same niunber of entries as 
the formal parameter list of the pro'bedure declaration heading. The 
correspondence is obtained by taking the entries of these two lists 
in the same order. 

7.3.2.2, Fonnal specifications. If a formal parameter is specified by 
value, then the simple type of the actual parameter must be assignment 
compatible with the formal type. If it is specified as result , then the 
formal type must be assignment compatible with the simple type of the 
actual parameter. If it is specified by value result, both the above 
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conditions must be satisfied. In all other cases, the types must be 
identical. If an actual parameter is a statement, then the specification 
of its corresponding formal parameter must be procedure . 

7.3.2.3. Subarray designators. A complete array may be passed to a 

procedure by specifying the name of the array if the number of subscripts 

of the actual parameter equals the number of subscripts of the 

corresponding fonnal parameter. If the actual array parameter has 

more subscripts than the corresponding formal parameter, enough subscripts 

must be specified by integer expressions so that the number of -^'s appearing 

in the subarray designator equals the number of subscripts of the 

corresponding formal parameter. The subscript positions of the fonnal 

array designator are matched with the positions with ■^' s in the subarray 

designator in the order they appear. 

7.3.3. Examples 

INCREMENT 

COPY (A, B, M, N) 

IMERPRODUCT (IP, N, A(l,-^), B(-5^,J)) 

7.i^-. Goto Statinents 

7.i|.l. Syntax 

<goto statement> ::= goto <label identifier> | go to <label 

identifier> 

7.)+. 2. Semantics 

An identifier is called a label identifier if it stands as a 
label. 
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A goto statement determines that execution of the text be contin- 
ued after the label definition of the label identifier. The identifi* 
cation of that label definition is accomplished in the following stept : 

Step 1. If some label definition within the most recently acti- 
vated but not yet terminated block contains the label identifier, 
then this is the designated label definition. Otherwise, 

Step 2. The execution of that block is considered as terminated 
and Step 1 is taken as specified above. 

7.5* If Statements 

7.5.1. Syntax 

<if statements- ::= <if clause <statement> | <if clausO 

<simple statement> else <statement> 
<if clause> ::= iT <logical expression> then 

7.5 '2. Semantics 

The execution of if statements causes certain statements to be 
executed or skipped depending on the values of specified logical ex- 
pressions. An if statement of the form 

<if clause> <statement> 

is executed in the following steps: 

Step 1. The logical expression in the if clause is evaluated. 

Step 2. If the result of Step 1 is true , then the statement 
following the if clause is executed. Otherwise step 2 causes 
no action to be taken at all. 
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An if statement of the form 

<if clause> <simple statemeni:> else <statement> 

is executed in the following steps: 

Step 1. The logical expression in the if clause is evaluated. 

Step 2. If the result of step 1 is true, then the simple state- 
ment following the if clause is executed. Otherwise the state- 
ment following else is executed. 

7 '3 '3- Examples 

if X = Y then goto L 

if X < Y then U := X else if Y < Z then U ; = Y else V := Z 

7'6. Case Statements 

7-6.1. Syntax 

<case statement> ::= <case clause begin <statement list> end 
<statement list> : : = <statement> ■ | <statement list> ; <statement> 
<case clause ::= case < integer expression> of 

7.6.2. Semantics 

The execution of a case stiatement proceeds in the following 
steps: 

Step 1. The expression of the case clause is evaluated. 

Step 2. The statement whose ordinal number in the statement list 
is equal to the value obtained in Step 1 is executed. In order 
that the case statement be defined, the current value of the ex- 
pression in the case clause must be the ordinal number of some 
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statement of the statement list . 

7.6.^v Examples 

case I of 

begin X := X + Y; 

Y := Y + Z; 

Z := Z + X 

end 

case j of 

begin h(i) := -h(i); 

begin H(I-1) := H(I-1) + H(i); I := I-l end ; 

begin H(I-1) := H(I-1) X H(i); I := I-l end ; 

begin H(h(I-1)) := H(i); I := 1-2 end 
end 

7'7» Iterative Statements 

7.7-1. Syntax 

<iterative statement> ::- <for clause> <.st. tement> | <-while 

clause> <stateinent> 

<for clause> ; := for <identifier> := <initial value> 

step <increment> until <limit> do | for 
<identifier> := < initial value> until <limit> 
do I for <identifier> := <for list> do 

<for list> ::= <integer expressiori> | <for list> , <integer 
express iori> 

<initial value> ::= <integer expressioii> 

<increiiient> ;;= <integer expressior> 

<limit> ti= <integer expressiori> 

<while claus€> ;:= while < logical expressiori> do 

7.7 'So Semantics 

The iterative statement serves to express that a statement be 
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executed repeatedly depending on certain conditions specified by a 
for clause or a while clause. The statement following the for clause 
or the while clause always acts as a block, whether it has the form of 
a block or not. The value of the control identifier (the identifier 
following for) cannot be changed by assignment within the controlled 
statement. 

(a) An iterative statement of the form 

for <identifier> := El step E2 until E3 do <stat-ement> 
is exactly equivalent to the block 

begin <statement-0>; <statement-l> ... ; <statem.ent-I>; 
... ; <statement-N> end 

in the I statement every occurrence of the control identifier 
is replaced by the value of the expression (El + I x E2). 

The index N of the last statement is determined by 
N < (E3-E1) / E2 < N+1. If N < 0, then it is understood that 
the sequence is empty. The expressions El_, E2, and E3 are 
evaluated exactly once, namely before execution of <statement-0>. 
Therefore they can not depend on the control identifier. 

(b) An iterative statement of the form 

for <identifier> := El until E3 do <statement> 
is exactly equivalent to the iterative statement 

for <identifier> := El step 1 until E3 do <statement> 

(c) An iterative statement of the form 

for <identifier> := El, E2, ... , EN do <statement> 
is exactly equivalent to the block 



begin <statement-l>j <statement-2> . . , <statement-I> ; ... 
<statement-N> end 

when in the I statement every occurrence of the control identifier 

is replaced by the value of the expression EI. 

(d) An iterative statement of the form 

while E do <statement> 

is exactly equivalent to 

begin 
L : if E then 

begin <s tat erne nt> ; goto L end 
end 

where it is, understood that L represents an identifier which is not 

defined at the place from which the while statement is entered. 

7.7.3. Examples ^ 

for V := 1 step 1 until N-1 do S := S + A(U,V) 
while (j > 0) and (CITY(j) -n = S) do J := J-1 
for 1 ::= X, X + 1, X + 5, X + 7 do P(l) 

7.8. Standard Procedures 

Standard procedures are provided in ALGOL W for the purpose of 
communication with the input/ output system. These standard procedures 
differ from explicitly declared procedures in that the number and type 
of actual parameters need not be identical in eveiy procedure statement 
in which the standard procedure identifier appears. In the following 
descriptions, each T. is to be replaced by any one of 
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integer string (<integer n'uinber>) 

real logical 

long real bits 

complex 

long complex 

7.8.1. The Input/ Output System 

ALGOL W provides a single legible input stream and a single legible 
output stream. These streams are conceived as sequences of records, each 
record consisting of a character sequence of fixed length. The input 
stream has the logical properties of a sequence of cards in a card reader; 
records consist of 80 characters. The output stream has the logical 
properties of a sequence of lines on a line printer; records consist 
of 132 characters, and the records are grouped into logical pages. 
Each page consists of not less than one nor more than 60 lines. 

Input records may be transmitted as strings without analysis. 
Alternatively, it is possible to invoke a procedure which will scan the 
sequence of records for data items to be interpreted as numbers, bit 
sequences, strings, or logical values. If such analysis is specified, 
data items may be reference denotations of the corresponding constants 
(cf. Section k). In addition, the following forms of arithmetic expressions 
are acceptable data items, and the corresponding simple types are those 
determined by the mles for expressions (cf. 6.3.): 

(1) <sign> <r n\jmber> 

where : T is one cf integer, real, long real, complex, long 
complex; 
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(2) <T^ nuinber> <sign> <r^ n-umber> 

<sign> <r_^ n-umber> <sign> <r number> 
where : T_^ is one of integer, real, long real, and 
T-. is one of complex, long complex. 

Data items are separated by one or more blanks. Scanning for data items 
initially begins with the first character of the input stream; after 
the initial scan, it norinally begins with the character following the 
one which terminated the most recent previous scan. Leading blanks are 
ignored. The scan is terminated by the first blank following the data 
item. In the process, new records are fetched as necessary; character 
position 80 of one record is considered to be immediately followed by 
character position 1 of the next record. There exist procedures to 
cause the scanning process to begin with the first character of a record; 
if scanning would not otherwise start there, a new record is fetched. 

Output items are assembled into records by an editing procedure. 
Items are automatically converted to character sequences and placed 
in fields according to the simple type of each item, as described below: 

Simple Type Field Description 

integer right Justified in a field containing 
the number of characters specified by 
the current value of INTFOILDSIZE 
(initialized to ik, cf. 8ly.) and followed 
by 2 blanks 

real right justified in a field of ik characters 

and followed by 2 blanks 
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long real right Justified in a field of 22 characters 

and followed by 2 blanks 
complex two adjacent real fields 
long complex two adjacent long real fields 
logical right justified in a field of 6 characters 

followed by 2 blanks 
string placed in a field exactly the length of 

the string 
bits same as real 

The first field transmitted begins the output stream; thereafter, each 
field is normally placed immediately following the most recent previously 
transmitted field. If, however, the field corresponding to an item 
cannot be placed entirely within a non-empty record, that item is made the 
first field of the next record. In addition, there exist procedures to 
cause the field corresponding to an item to begin a new record. Each 
page group is automatically terminated after 60 records; procedures 
are provided for causing earlier termination. 

7.8.2. Read Statements 

Implicit declaration headings: 

procedure READ {7 result X ; ... ; T re suit X ) ; 
procedure READON {7^ result X ; ... ; T result X ); 
(where n > = l) 

Both READ and READON designate free field input procedures. Input 
records are scanned as described in 7. 8.1. Values on input records are 
read, matched with the variables of the actual parameter list in order 
of appearance, and assigned to the corresponding variables. The simple 
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type of each data item must be assignment compatible with the simple 
type of the corresponding variable. For each REA.D statement, scanning 
for the first data item is caused to begin with the first character of 
a record; for a READON statement, scanning continues from the previous 
point of tennination as determined by prior use of READ, READON, or 
lOCONTROL (cf. 7.8.1,). 

Implicit declaration heading: 

procedure READCARD ( string (80) result X , ..., X ); 
(where n > = l) 

READCARD designates a procedure transmitting 80 character input 
records without analysis. For each variable of the actual parameter list, 
the scanning process is set to begin at the first character of a record 
(by fetching a new record if necessary), all 80 characters of that record 
are assigned to the corresponding string variable, and subsequent input 
scanning is set to begin at the first character of the next sequential 
record. 

7 •8.3. Write Statements 

Implicit declaration headings: 

procedure WRITE (T, value X ; . . . ; T value X ); 
procedure WRITEON (T-, value X ; ... ; T value X ); 
(where n > = l) 
WRITE and WRITEON designate output procedures with automatic format 
conversion. Values of expressions of the actual parameter list are converted 
to character fields which are assembled into output records in order of 
appearance (cf. 7. 8.1.). For each WRITE statement, the field corresponding 
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to the first value is caused to begin an output record; for a WRITEON 
statement^ assembly continues from the previous point of termination. 

7.8.4. Control Statements 

Implicit declaration heading: 

procedure lOCONTROL ( integer value X , ... , X ); 
(where n > = l) 
lOCONTROL designates a procedure which affects the state of the 
input/ output system. Argument values with defined effect are listed below; 
other values currently have no effect but are explicitly made available 
for local use or future expansion. 

Value Action (cf. 7. 8.1.) 

1 Subsequent input ' scanning is set to begin 
with the first character of a record. 

2 Subsequent output assembly is set to begin 
with the first field of a record. 

5 Subsequent output assembly is set to begin 

with the first field of a record which, in 
turn, is caused to begin a new output page. 

7.8.5. Examples 

READ ( X, A(l) ) 
READCARD ( S, LINE(10|8o) ) 
WRITE ( "AVERAGE =", SUiy^N ) 
WRITEON ( X(l,j) ) 
lOCOITTROL (2) 
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8. STANDARD FUNCTIONS AND PREDECLARED IDENTIFIERS 
The ALGrOL W environment includes declarations and initialization of 
certain procedures and variables which supplement the language facilities 
previously described. Such declarations and initialization are considered 
to be included in a block which encloses each ALGOL W program (with 
terminating period eliminated). The corresponding identifiers are said 
to be predeclared. 

8.1. Standard Transfer Functions 

Certain functions for conversion of values from one simple type 
to another are provided. These functions are predeclared; the 
corresponding implicit declaration headings are listed below: 

integer procedure TRUNCATE ( real value X) ; 

comment the integer i such that 

\±\ < = |xl < |i| + 1 and i^X > = 
integer procedure ENTIER (real value X) ; 

comment the integer i such that 
i< = X<i + l; 
integer procedure ROUND (real value X) ; 

comment the value of the integer expression 

if X < then TRUNCATE (X-O . 5 ) else TRUNCATE (X+0. 5) ; 
real procedure ROUNDTOREAL ( long, real value X); 

comment the properly rounded value of X ; 
real procedure REALPART ( complex value Z); 

comment the real component of Z ; 
long real procedure LONGREALPART ( long complex value Z); 
real procedure IMAGPART ( complex value z); 

comment the imaginary component of Z ; 
long real procedure LONGIMAGPART ( long complex value Z ) ; 
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complex procedure IMA.G ( real value X); 

comment the complex number + Xi ; 
long complex procedure LONGIMA.G ( long real value X) ; 
logical procedure ODD ( integer value n) ; 

comment the logical value 
N rem 2=1; 
bits procedure BITSTRING ( integer value N); 

comment two's complement representation of N ; 
integer procedure NUMBER ( bits value X) ; 

comment integer with two's complement representation X ; 
integer procedure DECODE ( string (l) value S); 

comment numeric code for the character S (cf. Appendix l) ; 
string (l) procedure CODE ( integer value N); 

comment character with numeric code (cf . Appendix l) given by 
abs (N rem 256) ; 

In the following comments^ the significance of characters in the prototype 

formats is as follows: 

D decimal digit in a mantissa or integer 

E decimal digit in an exponent 

A hexadecimal digit in a mantissa or integer 

B hexadecim.al digit in an exponent 

+ sign (blank for positive mantissa or integer) 

^_J blank 

Each exponent is unbiased. Decimal exponents represent powers of 10; 
hexadecimal exponents represent powers of I6. Each mantissa (except o) 
represents a normalized fraction less than one. Leading zeroes are not 
suppressed. 
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string (12) procedure BASEIO ( real value X) ; 
comment string encoding of X with format 
^+EE+DDDDDDD ; 
string (12) procedure BASEI6 ( real value X); 
comment string encoding of X with format 
,_j_,+BB+AAAAAA ; 
string (20) procedure L0NGBA.SE10 ( long real value X); 
comment string encoding of X with format 
^+EE+DDDDDDDDDDDDDDD ; 
string (20) procedure LONGBASEI6 ( long real value X); 
comment string encoding of X with format 
^_^+BB+AAAAAAAAAA^lAAA ; 
string (12) procedure INTBASEIO ( integer value n); 
comment string encoding of N with format 
^_,+DDDDDDDDDD ; 
string (12) procedure INTBASEI6 ( integer value n); 

comment unsigned, two's complement string encoding of N with format 

8.2. Standard Functions of Analysis 

The following functions of analysis are provided in the system 

environment. In some cases, they are partial functions; action for 

arguments outside of the allowed domain is described in 8. 5* These 

functions are predeclared; the corresponding implicit declaration headings 

are listed below: 

real procedure SQJIT ( real value X) ; 

comment the positive square root of X, 
domain : X > = ; 
long real procedure LONGSQRT ( long real value X) ; 
comment the positive square root of X, 
domain : X > = ; 
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complex procedure COMPLEXSQRT ( complex value Z) ; 

comment principal square root of Z ; 
long complex procedure LONGCOMPLEXSQPT ( long complex value Z) ; 

comment principal square root of Z ; 
real procedure EXP ( real value X) ; 
comment e -^^ X , 

domain : X < Xjk.G'J ; 
long real procedure LONGEXP ( long real value X) ; 
comment e -^^ X , 

domain : X < Yfk.&f ; 
real procedure LN (real value X); 

comment logarithm of X to the base e, 
domain : X > ; 
long real procedure LONGLN (real value X) ; 
comment logarithm of X to the base e, 
domain : X > ; 
real procedure LOG ( real value X) ; 

comment logarithm of X to the base 10, 
domain : X > ; 
long real procedure LONGLOG ( long real value X) ; 
comment logarithm of X to the base 10, 
domain : X > ; 
real procedure SIN ( real value X) ; 
comment sine of X (radians), 

domain : -823550- < X < 82355O ; 
long real procedure LONGSIN ( long real value X) ; 
comment sine of X (radians), 

domain : -3.537 '+15 < X < 3.537 '+15 ; 
real procedure COS (real value X) ; 
comment cosine of X (radians) 
domain : -82355O < X < 823 5 50 ; 
long real procedure LONGCOS ( long real value X) ; 
comment cosine of X (radians), 

domain : -3.537 '+15 < X < 3.537 '+15 ; 
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real procedure ARCTAN ( real value X) ; 
coimnent arctangent (radians) of X, 
range : -n/2 < ARCTAN(X) < n/2 ; 
long real procedure LONGARCTAN ( long real value X) ; 
comment arctangent (radians) of X, 
range : -tt/2 < LONGARCTAN (X) < tt/2 ; 

8.3. Time Function 

The AIXjOL W environment includes a clock which measures elapsed 
time since the beginning of program execution. The resolution of that 
clock is 1/60 second, A predeclared function is provided for reading 
the clock. 

integer procedure TIME ( integer value N) ; 

comment returns elapsed time, in hundredths of a minute if N=0, 
in sixtieths of a second otherwise; 

■S,k, Predeclared Variables 

The following variables are to be considered declared and initialized 

by assignment in the conceptual block enclosing the entire ALGOL W program. 

The values indicated for real and long real quantities are to be understood 

as decimal approximations' to the actual machine- format values provided. 

integer INTFIEIDSIZE; 

comment initialized to Ik , 

controls output field size for integers (cf. 7. 8.1.); 
integer MAXINTEGER; 

comment initialized to 21\^h^'^6h^ , 

the maximum positive integer allowed by the implementation; 
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real EPSILON; 

coimnent initialized to 9*5367^3 '-0? ) 

the largest positive real number e provided by the 
implementation such that 
1 + G = 1 ; 
long real LONGEPSILON; 

comment initialized to 2.220i^i|-60^925031' .-16L , 

the largest positive long real number e provided by 
the implementation such that 
1 + € = 1 ; 
long real mXREAL; 

comment initialized to 7 .23700557733226'+75L , 

the largest positive long real number provided by the 
implementation; 
long real PI; 

comment initialized to 3.1^^1592653589791 ; 

8.5. Exceptional Conditions 

The facilities described below are provided in ALGOL W to allow 
detection and control of certain exceptional conditions arising in 
the evaluation of arithmetic expressions and standard functions. 

Implicit declarations: 

record EXCEPTION ( logical XCPNOTED; integer XCPLIMIT, XCPACTION; 

logical XCPMA.RK; string (6^) XCPMSG) ; 
reference (EXCEPTION) 

OVFL, IMFL, DIVZERO, 

INTOVFL, INTDIVZERO, 

SQJITERR, EXPERR, LNLOGERR, SINCOSERR ; 
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Associated with each exceptional condition which can be processed 
is a predeclared reference variable to which references to records of 
the class EXCEPTION can be assigned. Fields of such records control the 
processing of exceptions. The association between conditions and 
reference variables is as follows: 



Reference Variable 
OVFL 

UNFL 

DIVZERO 

INTOVFL 
INTDIVZERO 
SQRTERR 
EXPERR 

LNLOGERR 

SINCOSERR 



Conditions 

real, long real, complex, long 

complex (exponent) overflow 
real, long reial, complex, long 

complex (exponent) underflow 
real, long real, complex, long 

complex division by zero 
integer overflow 
integer division by zero 
negative argument for SQJIT, LONGSQRT 
argument of EXP, LONGEXP out of 

domain (cf. 8.2.) 
argument of LN, LOG, LONGLN, 

LONGLOG out of domain (cf. 8.2.) 
argument of SIN, COS, LONGSIN, 

LONGCOS out of domain (cf. 8.2.) 



When one of the conditions listed above is detected, the corresponding 
reference variable is interrogated, and one of the alternatives described 
below is chosen. 

If the value of the reference variable interrogated is null, the 
condition is ignored and execution of the ALGOL W program continues. 
In such situations, a value of is returned as the value of a standard 
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function. For other condition* the result is that provided by the 

underlying IBM Systeiy360 hardware-^ . In determining such a result, it 

is to be noted that in those cases in which the detection of exceptional 

conditions can be inhibited at the hardware level, namely integer overflow 

and exponent underflow, detection is so inhibited when the corresponding 

reference is NULL. 

If the value of the reference variable interrogated is not NULL, 

the fields of the record designated by that reference are interrogated, 

and processing action is that described by the algorithm given below in 

the form of an extended ALGOL W procedure. Identifiers in lower case 

represent quantities which transcend the ALGOL W language; they are 

explained subsequently. 

procedure PROCESSEXCEPTION ( reference (EXCEPTION) value CONDITION); 
begin 

XCPNOTED(CONDITION) := true; 

XCPLIMIT (CONDITION) := XCPLIMIT (CONDITION) - 1; 

if (XCPLIMIT (CONDITION) < O) or XCPMARK (CONDITION) then 

WRITE C' xxxxx EXCEPTION NEAR CARD nnnn - ", XCPMSG (CONDITION) ) ; 
if XCPLIMIT (CONDITION) < then endexecution else 
if integercondition then 
resultant := default else 

resultant := if XCPACTION(CONDITION) = 1 then adjustment else 
if XCPACTI0N( CONDITION) = 2 then OL else 
default 
end PROCESSEXCEPTION 

This procedure is invoked with the value of the reference variable 
appropriate to the condition as actual param.eter. The significance of 
the special identifiers used is as follows: 

-^IBM System/560 Principles of Operation, IBM Systems Library, Form A22-6821 
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endexecution 



integercondition 



default 



resultant 



adjustment 



approximate line number of the source code 

which was being executed when the exceptional 

condition was detected 

procedure to terminate execution of the ALGOL W 

program 

logical value which is true if, and only if, 

the condition being processed is integer overflow 

or integer division by zero 

result of the operation or function provided 

by the ALGOL W system prior to invocation of 

the exception processing procedure; this is 

defined by the hardware^ for arithmetic 

operations and i-s the value for standard 

functions 

value to be returned as the result of the 

arithmetic evaluation or standard function . 

invocation 

adjusted result of the operation according to 

the following table 



Condition 

exponent overflow, 
division by zero 



Adjustment 

if default < then 
-MAXREAL else MAXEEAL 



exponent underflow 



OL 



argument X out of domain for : 

SQfiT(abs X), LONGSQfiT(abs X) 

MAXREAL 

-MAXREAL 

-MAXREAL 

OL 

OL 



SQRT, LONGSQJIT 
EXP, LONGEXP 
LN, LONGLN 
LOG, LONGLOG 
SIN, LONGSIN 
COS, LONGCOS 
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IBM System/560 Principles of Operation, IBM Systems Library, Form A22-6^21 
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The reference variable IMFL is initialized by the system to NULL. 
All other reference variables listed above are initialized to references 
to a special record which is accessible only by the system. Interrogation 
of this record by the procedure described above has the effect of causing 
the ALGOL W program to be terminated with a message indicating the type 
of exception. Any other attempt to access any field of this record will 
result in a reference error. 
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APPENDIX 1 - CHAJRA.CTER ENCODINGS 

The following table presents the correspondence between printable 
string characters and their (EBCDIC) integer encodings. This encoding 
..establishes the ordering relation on characters and thus on strings. 
Those characters in parentheses are not available on the line printer. 
Integer codes not listed below do not correspond to any established 
character. 



ek 


space 


129 


(a) 


193 


A 


214-0 





.7h 


(i^) 


130 


(b) 


19^ 


B 


2I4.I 


1 


75 


. 


131 


(c) 


195 


C 


242 


2 


76 


< 


132 


(d) 


196 


D 


21+3 


3 


77 


( 


133 


(e) 


197 


E 


21+1+ 


1+ 


78 


+ 


13^^ 


(f) 


198 


F 


2I4.5 


5 


79 




135 


(g) 


199 


G 


21+6 


6 


80 


& 


136 


(h) 


200 


H 


21+7 


7 


90 


(••) 


137 


(i) 


201 


I 


2i+8 


8 


91 


$ 


li^-5 


(j) 


209 


J 


21+9 


9 


92 


•X- 


li^6 


(k) 


210 


K 






93 


) 


114-7 


(1) 


211 


L 






9h 


j 


li^8 


(m) 


212 


M 






95 


—1 


114-9 


(n) 


213 


N 






96 


- 


150 


(0) 


21k 









91 


/ 


151 


(p) 


215 


P 






107 


> 


152 


(q) 


216 


Q 






108 


i 


153 


(r) 


217 


R 






109 




162 


(s) 


226 


S 






110 


> 


163 


(t) 


227 


T 






111 


? 


161^ 


M 


228 


U 






122 


: 


165. 


(v) 


229 


V 






123 


# 


166 


(w) 


230 


W 






I2i^ 


® 


167 


(x) 


231 


X 






125 


t 


168 


(y) 


232 


Y 






126 


= 


169 


M 


233 


Z 






127 


It 
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ALGOL W ERROR MESSAGES 



I. PASS ONE MESSAGES 

All Pass One messages appear on the first page following the program 
listing. The message format is 

CARD NO. ( member) -- (message) 

The (number) corresponds to the card number on which the error 
was found. The (message) is one of those listed below. 



INCORRECT SPECIFTN 

INCORRECT CONSTANT 
MISSING END 
MISSING BEGIN 

MISSING ) 
ILLEGAL CHARACTER 

MISSING FINAL . 
STRING mCTH ERROR 

BITS LENGTH ERROR 

MISSING ( 
TABLE OVERFLOW 



syntactic entity of a declaration is 
incorrect, e.g. variable string length, 

syntax error in nimiber or bitstring. 

an END needed to close block. 

an attempt to close outer block 
before end of code. 

) is needed. 

a character, not in a string, is 
unrecognizable . 

program must be terminated by a period. 

string is of length or length 
greater than 256. • 

bits constant denotes no bits or 
more than 32 bits. 

( is needed. 

terminating error - a compile time 
table has exceeded its bounds. 
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TOO MANY ERRORS the maximvim jaiB^^ of errors for Pasa 

One records has been reached. Com- 
pilation continues but messages for 
succeeding errors detected by Pass 
One are suppressed. 

ID LENGTH > 256 more than 256 characters in' identifier 

See also discussion of PROGRAM CHECK in IV., 

II. PASS TWO MESSAGES 

The format of Pass Two error messages is 

(message), CARD NI^ER IS (number). CURRENT SYMBOL IS (incoming 
symbol) 

If a $STACK card is included anywhere in the source deck, the 
SYNTAX ERROR message is followed by 

STACK CONTAINS: 

(beginning of file) 
<symbol-l> 

<symbol-ri> (top of stack) 

The symbol names may differ somewhat from the me'tasymbols of 
the syntax. 

If any Pass One or Pass Two errors occur, compilation is termi- 
nated at the end of Pass Two. 

INCORRECT SIMPLE TYPE <numbei> <simple type> of entity is improper 

as used. Number indicates explana- 
tion on list of simple type errors. 

68 



ARRAY USED INCORRECTLY 

IDENTIFIER MUST BE RECORD 
CLASS ID 

MISMATCHED PARAMTER 



MULTIPLY-DEFINED SYMBOL <iden- 
tifier> 



a variable must be used here, 
reference declaration is incorrect. 

formal parameter does not correspond 
to actual parameter. 

symbol defined more than once in a 
block 



UNDEFINED SYMBOL <identifier> symbol is not declared or defined. 



INCORRECT NUMBER OF ACTUAL 
PARAMETERS 



INCORRECT DIMENSION 

DATA AREA EXCEEDED 
INCORRECT NUMBER OF FIELDS 



INCOMPATIBLE STRING LENGTH 

INCOMPATIBLE REFERENCES 

BLOCKS NESTED TOO DEEP 

REFERENCE MUST REFER TO 
RECORD CLASS 

EXPRESSION MISSING IN 
PROCEDURE BODY 



the number of actual parameters to 
a procedure does not equal the number 
of fonnal parameters declared for 
the procedure. 

the array has appeared previously 
with a different number of dimensions. 

too many declarations in the block. 

the number of fields specified in a 
record designator does not equal the 
number of fields the declaration of 
the record indicates. 

length of assigned string is greater 
than length of string assigned to. 

record class bindings are inconsistent, 

blocks are nested more than 7 levels. 

reference must be bound to a record 
class. 

body of typed procedure must end 
with an expression. 
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RESULT PARAMETER MUST BE 
<T VAR> 



PROCEDURE HEAD LACKS SIMPLE 
TYPE 

<SyMBOL-l> UNRELATED TO 
<SYMB0L-2> 



SYNTAX ERROR 



the actual parameter corresponding 
to a result formal parameter must 
be a <r VARLA.BLE>. 

proper procedure ends with an 
expression 

the symbor at the top of the stack 
(<SYMB0L-1>) should not be followed 
by the incoming symbol (<SYMB0L-2>) . 

construction violates the rules of 
the grammar. The input string is 
skipped until the next END, ";", 
BEGIN, or the end of the program. 
More than one error message may be 
generated for a single syntax error. 



Simple Type Errors 

25. Upper and lower bounds must be integer . 

29. Upper and lower bounds must be integer . 

32. Simple type of procedure and simple type of expression in 

procedure body do not agree. 

71. Substring index must be integer . 

73. Simple variable preceding '(' must be string . 

^k. Substring length must be integer. 

76. Field index must be reference or record class identifier. 

77. Array subscript must be integer . 
81. Array subscript must be integer. 

8^. Actual parameters and foiTnal parameters do not agree. 

88. Actual parameters and fonnal parameters do not agree. 

93. Expressions in _if expression do not agree. 

9^. Expressions in case expression do not agree. 

95. Expression in if clause must be logical. 
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98« Expressions in c9.se expression do not agree. 

99« Expression in case clause must be integer , 

101. Arguments of = or -n=do not agree. 

102. Arguments of relational operators must be integer , real , or 

long real. 

103. Argument before _is must be reference. 

106. Argument of unary + must be arithmetic. 

107. Argument of unary - must be arithmetic. 

108. Arguments of + must be arithmetic. 

109. Arguments of - must be arithmetic. 

110. Arguments of or must be both logical or both bits . 

112. Record field must be assignment compatible with declaration. 

117. Arguments of ^ must be arithmetic. 

118. Arguments of / must be arithmetic. 

119. Arguments of div must be integer . 

120. Arguments of rem must be integer . 

121. Arguments of and must be both logical or both bits . 
125. Argument of -i must be logical or bits . 

125. Exponent or shift quantity must be integer ; expression to be 

shifted must be bits . 

126. Shift quantity must be integer ; expression to be shifted must be 

bits . 

130. Actual parameter of standard function has incorrect simple type. 

13^. Argument of long must be integer , real , or complex . 

135 • Argiiment of short must be long real or long complex . 

136. Argument of abs must be arithmetic. 

1U8. Record field must be assignment compatible with declaration. 

181. Expression is not assignment compatible with variable. • 

182. Result of ' assignment cannot be assigned to variable. 
188. Limit expression in for clause must be integer . 

190. Expression in for list must be integer. 

191. Assignment to for variable must be integer . 
193 • Expression in for list must be integer . 
195. Step element must be integer . 

197* Expression in while clause must be logical . 
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III. PASS THREE ERROR MESSAGES 

The form of Pass Three error messages is 

xxxxx (message) 

xxxxx NEAR CARD (number) 



The number indicates 
occurred. The message may 
PROGRAM SEGMENT OVERFLOW 

COMPILER STACK OVERFLOW 
CONSTAOT POINTER TABLE TOO 

BLOCKS NESTED TOO DEEPLY 



DATA SEGMENT OVERFLOW 



TOO MANY PROCEDURES 



CARD TABLE OVERFLOW 



the number of the card near which the error 

be 

the amount of code generated for a 
procedure exceeds 8192 bytes. 

constructs nested too deeply. 

LARGE too many literals appear in a 
procedure. 

parameters in procedure call are nested 
too deeply; procedure calls in block 
nested too deeply. 

too many variables declared in the 
block. 

the program contains too many procedure 
declarations; the number of procedures 
allowed depends on the size of each 
procedure and cannot exceed 52. 

density of information on (non-blank 
and non-comment) source cards is too low, 



IV. RUN TIME ERROR MESSAGES 

The form of run error messages is 

RUN ERROR NEAR CARD (number) - (message) 
SUBSTRING INDEXING substring selected not within named string. 



CASE SELECTION INDEXING 



ARRAY SUBSCRIPTING 



index of case statement or case expression 

is less than 1 or greater than number of cases, 

array subscript not within declared bounds. 
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LOWER BOUHD > UPPER BOUM) 



ARRAY TOO LARGE 



ASSIGNMENT TO NAME PARAMETER. 



DATA AREA OVERFLOW 



ACTUAL-FORMAL PARAMETER MISMATCH 
IN FORMAL PROCEDURE CALL 



lower bound is greater than upper 
bound in array declaration. 

The (n-l) dimensional array obtained 
by deleting the right-most bound- 
pair of the array being declared has 
too many elements. The maximum number 
of elements allowed in this (n-l) 
dimensional array is given below, 
according to the declared type of 
the array. 





maximum f of 




elements in 




first (n-l) 


type 


dimensions 


logical, string 


32767 


integer, real 


8191 


bits, reference 


8191 


long real, complex 


^095 


long complex 


20^+7 



RECORD STORAGE AREA OVERFLOW 



assignment to a formal name parameter 
whose corresponding actual parameter 
is an expression, a literal, control 
identifier, or procedure name^ 

storage available for program execu- 
tion has been exceeded. 

the number of actual parameters in 
a formal procedure call is different 
from the number of formal parameters 
in the called procedure, or the 
parameters are not assignment 
compatible. 

no more storage exists for records. 
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IMGTH OF STRING INPUT 

LOGICAL INPUT 

NUMERICAL INPUT 

REFERENCE INPUT 
READER EOF 

REFERENCE 



HNE ESTIMATE EXCEEDED 

TIME ESTIMATE EXCEEDED 

I/O ERROR 
PROGRAM CHECK #nn 



string read is not assignment compatible 
with corresponding declared string. 

quantity corresponding to logical 
quantity is not true or false, 

numerical input not assignment compatible 
with specified quantity. 

reference quantities cannot be read. 

a system control card has been 
encountered during a read request. 

the null reference has been used to 
address .a record, or a reference bound 
to two or more record classes was used 
to address a record class to which it 
was not currently pointing. 

line estimate on ^ALGOL card is 
exceeded. 

time estimate on ^ALGOL card is 
exceeded. 

see consultant. 

see consultant. 



Counts of certain exceptional conditions detected during program 
compilation or execution are maintained. If any of these are non-zero, 
they are listed after the post- compilation or post -execution elapsed 
time message in the following format: 

nnnn PROGRAM CHECK NO xx 

The number of times the condition was detected (modulo lOOOO) is 
given by nnnn; the nature of the condition is indicated by xx according 
'■n the following table: 
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08 integer overflow 

09 integer division by zero 

12 real exponent overflow 

13 real exponent underflow 
15 real division by zero 

This counting is inhibited for integer overflow and exponent 
underflow whenever the value of the corresponding reference variable 
is null (cf. LANGUAGE DESCRIPTION, Section 8.5.). 

V. OTHER 

PRG PSW see consultant. 

COMPILER ERROR see consultant. 

INSUFFICIENT insufficient memory available to complete compilation, 
STORAGE 
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NOTES ON NUMBER REPRESENTATION 

ON SYSTEM/360 

AND RELATIONS TO ALGOL W 

by 

George E. Forsythe 
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The following notes are intended to give the 
student of Computer Science I56 some orientation 
into how numbers are represented in the IBM System/560 
computers. Because we are using Algol W, some refer- 
ences are made to that language. However, very little 
of what is said here depends on the peculiarities of 
Algol W, and this exposition is mostly applicable to 
Fortran or Algol 60 with slight changes in wording. 
It will also do for the floating-point numbers and 
full-word integers of PL/I. Users of shorter or 
longer integers or decimal arithmetic in PL/1 will 
need more orientation. 
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Cm IBM's system 56O, the following units of information storage 
are used: 

a) the bit , a single or 1 

b) the byte ^ a group of eight consecutive bits 

c) the (short) word, a group of four consecutive bytes*— 
i.e,, 52 consecutive bits 

^) ^^^ ^^^ ^!2E^> a group of two, consecutive short worda-- 

i.e., eight bytes or 64 bits. 
For number representation in Algol W the words and long words are 
the main units of interest. 

INTEGERS. 

Integers are stored in (short) words. Gf the 32 bits of a short 
word, one is reserved for the sign (0 for + and 1 for -), leaving 
31 bits to represent the magnitude. A positive or zero integer is 
stored in a binary (base 2) representation. Thus 21- ^ (the subscript 
means base 10) is stored as 

0000 0000 0000 0000 0000 0000 0001 0101 

t 

sign bit 

To confirm this, note that 

21 .=^ X 2 + . , o + X 2^ + 1 X 2^ +OX2^ + 1X2^ + OX2"^ + 1X 2^, 

The la]^gest integer that can be stored in a word is 

2^0 + 2^^ + ... + 2^ + 2^ = 2^^ . 1 = (2147^83647)10 • 

51 
Any attempt to create or store ^ integer larger than 2-1 will 

produce erroneous results, and (unfortunately) the user will not always 

be warned of the error o (Cee below. ) 

To save space in writing words on paper, each group of four bits 

in a word is frequently converted to a single base-l6 (hexadecimal) 

digit, according to the following code: 
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base 2 


base 16 


base 2 


base 16 


0000 





1000 


8 


0001 


1 


1001 


9 


0010 


2 


1010 


A 


0011 


3 


1011 


B 


0100 


k 


1100 


C 


0101 


5 


1101 


D 


0110 


6 


1110 


E 


0111 


7 


nil 


F 



Thus A, B, C, D, E, F are used as base-16 representations of the decimal 
numbers 10, 11, 12> 13, Ik, 15 respectively. Nevertheless, integers are 
stored as base-2 numbers. 

Using hexadecimal notation, the decimal number 21 is represented 



by 



00000015 



16 



Note that 15,^ is the base-l6 representation of 21, q 

Negative integers are stored in what is called the "two' s conplement 
form". For example, -1 is stored as 

nil nil nil iiii nil iiii nii nil . 

= FFFFFFFF-^ , 
16 

Also, -21 is stored as 

nil nil nil nil nil iiii 



.10 1011 



= FFFFFFEB, 



16 



The representation for -21 is obtained from that for +21 by changing 
every to 1 and every 1 to 0, and then adding + 1 in base-2 arithmetic 
to' the result. Similarly for any negative integers. Every negative 
integer has 1 as its sign bit. The smallest integer storable in 
System/360 is -2^"^ - -21^17^18361^8 , and is represented by 80000000.^ 
Another way to think of the representation of negative numbers is 
to consider a 52-place binary accumulating register (the base-2 equivalent 
of the decimal accumulating register in a desk calculating machine). 
If one starts with an zeros in this register, one gets the representation 
for -1 by subtracting 1. The process requires a "borrow" to propagate 
to the left all the way across the register, leaving all ones, just as 
on a decimal accumulator this would leave an nines. Continued sub- 
traction will give the representations for -2, -3> • • • 
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From the point of view of an accumulator we can also see what 

31 
happens when we create a positive niimber larger than 2 -1. For 

example, if we add 1 to 2^ -1, the resulting carry will go all the 

way into the sign bit, leaving a sign bit of 1 with all other digits 

zero. But this is the representation of -'P . Thus the attempt to 

produce positive numbers in the range from 2-^ to approximately Qp 

will yield a negative sign bit. Consequently, positive integers that 

"overflow" into this range are sensed as negative by Systeny'360. , The 

mechanisms of AlfiOL W for detecting integer overflow (not described in 

this document) can be used to detect additions, subtractions, or 

51 
multiplications that produce integers outside the range from -2-^ to 

2^ -1 (so-called integer overflow ). Attempts to divide an integer by 

will yield an error message and an irrelevant quotient and remainder. 

The behavior of System/360 on integer overflow is quite different 

from the Burroughs B5500* In the latter machine, any integer that 

overflows is replaced by a rounded floating-point number. There are 

advantages to either approach to integer overflow, depending on the 

application. 

If the user suspects that integers in his program are getting 

9 
anywhere near 10 , he should convert them to double-precision floating- 
point numbers by use of the Algol W operator LONG. Conversion to single- 
precision floating-point numbers may lose some precision. 

The most important thing for a scientific user to remember is that 

31 31 
integers in the range -2r to 2r -1 are stored without any approximation, 

Moreover, operations on integers (adding, subtracting, multiplying) are 

done without any error, so long as all intermediate and final results 

31 31 
are integers between -2 and 2r -1. It is perhaps easier to remember 

9 9 

as safe the interval from -2 x 10 to 2 x 10 , obtained from the 



useful approximation 2 



1° = 105 
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The operations of division without remainder (called DIV in Algol 
W) and taking the remainder on division (called REM in Algol W) always 
give integer answers. If the divisor is 0, an error message is given. 

In Algol W two operations on integers give results that are not 
stored as integers— namely / and ** 

FLOATING-POINT NUMBERS 

Numbers in many scientific computations will grow in magnitude 
well beyond the range of integers described above. To provide for 
this, System/ 560 and most scientific computers have a second way to 
represent numbers— the so-called floating - point representation » 
The significance of the name "floating-point" is that the radix point 
— for example, the decimal point in base-10 numbers--is permitted to 
float to the right or left, thus permitting scaling of numbers by 
various powers of the radix. Although a decimal point that has floated 
off to the left will produce a number wrifDen like Oo0013i|-5^ the 
numbers are actually represented in a form closer to what is often 
called scientific notation , here 1.3^5><10 

In System/360, floating- Ant numbers ^.re always represented in 
base-l6 notation; i<,e<. , the r? ix or number base s I60 This permits 
us to write numbers in abbrevi "^ed form (as we did with integers earlier). 
More important, the use of base -16 conforms with the hardware arithmetic 
processes in which shifting is done four bits at a time to speed up the 
operations « The speed-up is achieved at a slight cost in precision, 
as li: learned from detailed error analyses which we cannot go into here. 

We first consider the floating-point representation of numbers by 
a single word of 32 bits» This is the so-called single - precision 
or short real number, the number of type REAL in Algol W« The 52 bits 
of a word are numbered from to 31^ from left to right, Just to identify 
them. In floating-point representation the left-hand eight bits (bits 
to 7, equivalent to two hexadecimal digits) are devoted to the sign of 
the number and the exponent of I6 associated with the number. The right- 
hand 24 bits (bits 8 to 3I, equivalent to six hexadecimal digits) 
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represent six significant hexadecimal digits (the significand ) of the 
number* 

As with integers^ the sign of the number is denoted by bit 0, 
with representing + and 1 representing - . 

Bits 1 to 7 give the binary (base-2) representation of a non- 
negative integer in the range .. to 12? ,q ^ inclusive. This in- 
teger is called the biased eiqponent ^ for reasons now to be explained. 
If this integer were taken directly as the exponent^ we would have no 

negative exponents^ and our range of floating-point numbers could not 

-25 
Include such numbers as 16 . It is desirable to have an exponent 

range that is approximately symmetric about zero. In Sy8teBi/360 one 

obtains the true eacponent of the floating-point number by subtracting 

6k from the biased exponent represented by bits 1 to 7 . As a result^ 

the actual exponents range from -6^ to 63. 

Tlie 2k bits 8 to 31 of a number are regarded as six hexadecimal 
digits with a hexadecimal point at the left-hand end. If th« floating- 
point number zero is being represented^ all the hexadecimal digits are 
zero^ as are all the other bits. Otherwise^ at least one of the hexa- 
decimal digits must be nonzero. A floating-point number is said to be 
normalized if the left-hand hexadecimal digit (the most significant 
digit) of the significand is nonzero. In System/360 the floating-point 
niribers are ordinarily normalized, and we will not consider any other 
forms. 

We now give the floating-point representations of some sanple 
numfc'i.-'s. As we said before, the number zero is represented by 32 zero 
bits, i„e., by eight hexadecimal digits. Thus zero is represented 
by the same words in floating-point or integer form. No other number 
has this property. 

The number 1.0 is represented by the word 
sign bit 

^ >100 0001, .0001 0000 0000 0000 0000 0000 f 
eS"ent eignifleand 
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To check this, note that the sign is (representing +). The biased 
exponent is 1000001 or 65 ^q • Subtracting 6^^^^ yields 1 as the 
true exponent. The hexadecimal significand is 100000^ , Putting a 
hexadecimal point at the left end gives the hexadecimal fraction 
. 100000- >- , which equals l/l6. , Thus the above word represents 
+ 1/16 times 16 , or 1.0 , 

To save writing, the above word is ordinarily written in the 
hexadecimal form 41100000 . While ope gradually learns to recognize 
some floating-point numbers in this form, the author knows no easy way 
to convert such a hexadecimal word into a real number. One just has 
to take the right-hand six hexadecimal digitus, and prefix a hexadecimal 
point. Then one examines the left-hand two-hexadecimal- digit nuniber 
(here kl). If this is less than 80. g , the floating-point number is 
positive and one gets the true exponent by subtracting 40.^ « O^.q • 
If the left-hand two- hexadecimal- digit number is 80.^ or larger, the 
floating-point number is negative, and one gets the true exponent by 
subtracting 00-^ = 80, ^ + kO^ = "^^lO ®^^ affixing a minus sign. 
Some facility with hexadecimal arithmetic is required, if one has to 
deal with such numbers. 

In this presentation^ we have considered the radical point to be 

at the left of the six significant hexadecimal digits, and regarded 

I, 

the exponent as biased high by ^-^q • As an alternative, the reader 
may prefer to place the radix point just to the right of the most 
significant digit of the significand, and regard the exponent as biased 
high by 65 ^^ . This brings the significand closer to usual scientific 
notation but, of course, requires a trickier conversion to get the 
true exponent. The fact that either interpretation (and many others) 
are possible shows that really the radical point is just in the eye of 
the beholder, and not in the computer 1 

Several examples of floating-point numbers are now given in hexa- 
decimal notation, with the confirmation left to the reader. 
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decimal floating- p oint 

0.0 = 00000000 

loO = ifllOOOOO 

0.0625 = 40100000 

16.0 = 42100000 

256.0 = 43100000 

-1.0 - CllOOOOO 

-16.0 = C2100000 

3.5 = 41580000 

The largest floating-point number is 7FFFFFFF, representing 
.PFFFFF X 16^^ or (1 - I6" ) X 16 '^ f 7..23 X lo'^^. (Here 10 and 16 
denote decimal numbers . ) 

The smallest positive normalized floating-point number is 00100000, 
representing 

^ X 16'^ = 5.40 X 10"'^^ 

Negatives of these two numbers can also be represented, and are 
the eattxemes in magnitude of represent able negative numbers. 

Very few numbers can be exactly represented with six significant 
decimal digits. ( Exercise i Which ones can?) For exaii5>le, I/3 = .333333^q 
only approximately. In the same way, very few numbers can be exactly 
represented with six significant hexadecimal digits, ( Exercise : 
Which ones can?) For example, r/3 = .555555-, x- only approximately. 
Moreover, some numbers that are exactly representable in decimal are 
only approximately representable in hexadecimal; for example, 
1/10 = ..100000 Q exactly; but 
1/10 . .19999A^^ only approximately,, 

Thus round - off error enters into the representation of most 
floating-point numbers on System/360, and the round off differs frcm 
that with decimal numbers. This can easily give rise to unexpected 
results. For example, if the above number „19999A,/' (= 0«l-|rv) is 
multiplied by the integer 100-,q ^ 64^^ , one gets not A.00000_>^ = 
10.0. Q , but instead A„00003., , as a cumulative effect of the slightly 
high approximation to O-I-jq . And A.00003.>. rounds to 10.00002.^ 
on conversion to decimal. 

The precision of a single-precision hexadecimal number is roughly 

-7 
10 ' . Che can think of this as being crudely equivalent to seven sig- 
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nlficant decimal digits . 

Kot only do errors appear in the representation of nuabers inside 
Systea^jSO (or any computer), but they arise from arithmetic operatiaiB 
performed on numbers » For example, the product of two floating-point 
numbers may have up to 12 significant hexadecimal digits. When the 
product is stored as a single-precision floating-point number, it must 
be rounded to six hexadecimal digits. This introduces an error, even 
though the factors might have been exact. 

inie story of round off and its effect on arithmetic is a cooqplex 
and interesting one. Only within the current decade have there begun 
to appear even partly satisfactory methods to analyze round off, and 
we cannot go into the matter now. Some idea of this is obtained in 
Cowputer Science 137 . 

Ifftien an Algol W program assigns decimal numbers or Integer values 
to variables of type REAL, these are immediately converted to hexadecimal 
floating-point numbers, with (usually) a round- off error. When one 
outputs numbers from the computer in Algol W;? they are converted to 
decimal o Both conversions are done as well as possible, but introduce 
changes in the numbers that the ■Programmer must be aware of And, of 
course, all intermediate operations introduce f^jrther rotmd offs and 
possible errors. It is unthinl.able to do the analysis necesseury to 
counteract these errors and get the true answer to the problem. If the 
user wishes answers uncontaminated by round off, he should use integers 
and integer arithmetic, and be prepared to guard against overflow. 

Foi^tuhately most users can accept an indeterminate amount of 
round off in their numbers, provided they have some assurance that 
round off is not growing out of control. It is the business of numerical 
analysts to provide algorithms whose round-off properties are reasonably 
under control. This has been well acconplished in some areas, and hardly 
at all in others. 

DOUBLE PRECISION 

The precision of single-precision floating-point numbers seems 
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very adequate for most scientific and engineering purpose s^being at the 
level of seven decimals, Howeverp a consideraole number of coniputations 
require still more precision in the middle somewhere^ just in order to 
cane out with ordinary accuracy at the end. As a result, System/ 36O 
has provided an easy mechanism for getting a great deal more precision 
in the cofflputations . For this purpose a double word of 64 bits is used 
to store a floating-point number of so-called double precision or long 
precision . In this representation, the sign and biased exponent are 
found in the first word of the double-word, with precisely the same 
interpretation as with single-precision floating-point numbers. The 
second word of the double-word consists of eight hexadecimal digits 
Immediately following the six found in the first word. There is no 
sign or exponent in the second word. Thus a double- word represents 
a signed floating hexadecimal number with 14 significant hexadecimal 
digits. As before, nonzero numbers are normalized so that the most 
significant digit of the 14 is nonzero « 
Examples: 

long significand 

l.OL = 41'iGoooo oooooood' 

O.IL =40 199999 9999999A 

There is a full set of arithmetic operations for both single 
and double-precision operations.. Very crudely, for an example, single- 
precision multiplica,tion of single-precision factors takes around 4 micro- 
seconds, while that for double-precision factors takes around 7 micro- 
seconds. For modest problems the extra time is ccmpletely lost in the 
several seconds of time lost to systems and compilers, and the use of 
double-precision is strongly recommended for all scientific computation. 
Normally the only possible disadvantage of using long precision is the 
doubling in the amount of storage needed. If one has arrays with tens 
of thousands of elements, the extra storage may be very costly. Other- 
wise, it should not matter. 

Since 16 = lo""*"', the double "precis ion numbers are crudely 
equivalent in precision to I7 significant decimal digits. 

For a machine with the speed of the 360/ 67, a number precision of 
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six hexadecimal digits (roughly seven decimals) is considered very loir^ 
while a precision of l4 hexadecimal digits (roughly 17 decimals) is 
very adequate « 

K:e floating-point arithmetic 

hardware of SysteiV360 provides the possibility of detecting uhen 

numbers have gone outside the exponent range stated above ^ ^Rie reader 

-79 75 
may think that a range from i c. ighly 10 ' to 10 should cover eLLl 

reasonable computations « While exponent overflow and exponent underflow 

are not very common, they can be the cause of very elusive errors. 

The evaluation of a determinant is a common computation, and for a matrix 

of order kO is quite rapidly done (if you imow how)» If the matrix 

elements are of the quite reasonable magnitude 10 :, the magnitude of 

-90 . 
the determinant will be no larger than roughly 10 (and probably 

much smaller), well below the range of representable floating-point 

numbers. Such problems are a frequent source of exponent underflow. 

We shall not discuss here the me^^hanisms of Algol W for detecting 

exponent overflow and underflow, for these should be widtten up in 

another place. Even without these, we see that floating-point numbers 

66 
behave well for numbers that ar^ at least 10 times as large as the 

largest Integer in the system* Hence use cxf floating-point numbers 

meets almost all the problems raised by integer ..verflow. And;, of 

courses it permits the use of a large set of rational numbers, which 

do not even enter the integer system. 

ALGOL W REALS AND LONG REALS 

The Algol W manual tells how to represent real variables and 
numbers to take advantage of both single- and double-precision. The 
purpose of this section is to bring this information into rapport with 
the hardware representation of numbers. If a variable X is declared 
REAL., one word is set aside for its vgO-ueso and it will be stored in 
single-precision floating-point form. If a variable is declared to be 
LCNG REAL, a double-word is set aside to hold its values ^ and it will 
be stored in double-precision form„ 
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If a number is written in one of the decimal fonns without an L 
at the end, it will be chopped to single-precision, no matter how many 
digits are set down. Thus 3. liH5 92653 5897 93 2 will be immediately- 
chopped to single-precision in the program, and all the superfluous 
digits are lost at once. Thus the assignment statement 

XX ;= 3.1^15926535897932 
will result in the double -word XX receiving an approximation to tt 
in the more significant half, and all zeros in the less significant 
half.' Thus one gets a precision of only approximately seven decimals 
for the pain of writing 17, and this may well contaminate all the rest 
of the computation. 

If one wants XX to be precise to approximately full double precision, 
one must write the statement in the form 

XX := 3.1^159265358979321 . 

With the declaration REAL X, the statement 
X := 3.1^159265358979321 
will result in X having a single-precision approximation to tt ^ as 
the long representation of tt is chopped upon assignment to X, 

The reader should now go back and examine the specifications of 
ihe types of various arithmetic expressions, as stated on pages 9> 10^ 
11 of the Algol W Notes , and on pp. 25, 26 of the language Definition . 
Some of the less expected effects are the following: Suppose we have 
declarations 

REAL X, Y, Z; 

LONG REAL XX, YY, ZZ; 

INTEGER I, J, K; 

Then X*Y, I**J, and I*X are all long real. 

The assignment statement 
XX := X := Y-XZ 
will result in XX having a single -precision chopped version of Y*Z in 
the more significant half, and zeros in the less significant word. 

Moreover, 1*1 is INTEGER, but 1^*2 is LONG REAL. 
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If the reader understands the language Algol W and the preceding 
pages on number representation^ he should have a good basis for un^er* 
standing the effects of mathematical algorithms. But he should elva^s 
remain wary of what a computer is actually doing to his numbers I 
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APPENDIX 



r 



§§ 



Algol W Deck Set-Up 
(job Card) 

//JOBLIB DD DSNAME=SYS2.PR0GLIB,DISP=( OLD, PASS) 
// EXEC ALGOLW 
//ALGOLW.SYSIN DD * 
^ALGOL 

{ program ) 

( data ) 
foEOF 



§ Optional 
§§ May be repeated 

Note ; The Stanford ALGOL W system monitors execution time and niimber 
bf lines of output for each job. The default limits on these quantities 
are 10 seconds execution time and 500 lines of printed output. Alternately, 
the programmer may explicitly specify limits on the /^ALGOL card. 
Columns 10-29 of that card are scanned for such specification according 
to the following syntax: 
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(limit specification) 
(time limit) 

(minutes specification) 
(seconds specification) 
(line limit) 



= (time limit) | (time limit), (line limit) 
= (minutes specification) | 

(minutes specification) : (seconds specification) 
= (unsigned integer) | (empty) 
= (unsigned integer) | (empty) 
= (unsigned integer) | (empty) 



An empty field is given the corresponding default value. The program 
is automatically terminated if necessary at the end of the indicated* 
time. Similarly, the program is automatically terminated if necessary 
after the indicated number of lines have "been printed. 



91 



GRAMMATICAL DESCRIPTION OF ALGOL W 



by 



R. Floyd 
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In the grammatical description of ALGOL W on the following pages, 
Roman capital letters, such as A B C D, stand for themselves. A script 
letter, possibly accented, stands for a defined infinite class of symbol 
strings, for example, c9 , as defined, st»p.hds for the class which includes 
the symbols A, B, C, ..., Z, AA, AB, ...,.A9, BA, . . . ,B9, . . .Z9, AAA, ..., 
Z99> AAAA, ... . A Greek letter, such as \ , stands for a given finite 
set of characters. 

The symbol | means "or"; if is' defined as ^|C , this means that 
a particular inscription is an G if it is a 13 or if it is a C . 

The notation G , or equivalently [Q] , means any number (including 
zero) of inscriptions, one after another, each of which is an Q . For 
example, {a|b] means A or B or AA or AB or BA or BB or AAA 
or ..., or A j where A means no inscription at all. 

The notation (2 means any number (but at least one) of inscriptions, 
one after another, each of which is an G . It abbreviates QG . For 
example, [a|b} means A or B or AA or ... or BB or AAA , etc. 

The notation [G] means an optional occurrence of G ; it abbreviates 

{aU} . 



The notation " G B means G or GSG or QlSOIdd , etc; it abbreviates 
GfySO}^ . 

The notation G J^^ means G and/or B ; it abbreviates G|/9|g® . 

The curly brackets { ] are used simply as parentheses to show the 
scope of the above operators. 

All other characters, such as /-,()/< etc., stand for themselves, 
including * and + when they are not raised. 
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The Grammar of a Simple Subset of ALGOL W 



"^ 



Descriptive 
Name 

letter 

digit 

identifier 

symbol 

constant 

function value 

eacpression 

simple statement 

statement 

block 

declaration 

type 

procedure heading 

program 



Symbol 
\ 
6 
c9 
a 
C 

e 

S' 

s 

6 
& 
7 
U 
P 



Definition 

a|b|c|d|e|.. .|x1y1z 
0|l|2|3|...|8|9 

Any symbol on the keypunch, except the double quote 



c9:=e|c9[(eV)]|GO TO c9 \/3 

S' |lF e THEN S|lF & THEN S' ELSE S|FOR c9:=e UNTIL e DO S 

BEGIN {i9;} {S;|^: ]*S END 

T c9 ,|T PROCEDUEEJi^;[e|BEGIN|;jB;}*[S;|c»:)^e eND] 

INTEGER I REAL | LOGICAL | STRING(C) 
^ I 

«J(t[value|procedure3«J , ; ) 



The Grammar of ALGOL W 






Descriptive 
Name 

letter 

digit 

identifier 

variable 

symbol 

constant 

function value 

simple expression 

simple expression 
or relation 

expression 

argiment 

simple statement 

empty 

statement 



\ 
6 
c9 
V 
a 
C 

&" 
t 

a 
s' 

A 
S 



Definition 



a|b|c|d|e|--«|x|y|z 

o|l|2|3|---|8|9 
xU|6f 

U|c9(e)|^(ef)][(e|c)] 

Any character on the keypunch, except the double quote, 

[[6''[.6'']|.6'"] i [»[+!-] 6'']][I][LJ ItRUeIfALSE 
|# i:6|A|B|c|D|E|Ff r'tar"']''"lWULL 



.-x-. 



[+|-]h][ABS|LOWG|SHORT] [v|c|3^|(e)] t^|SHL|SHR][^|/|DIv|EEM|Al©}!;+ 
&"|£^'[<|<=| = |>=:|>h=]&'|&' IS c9 



-lOR] 



e' |lF £ THEN & ELSE e|CASE & OF (eV) 



e|s| ^[([e|^},)] 

[V:=fe|GO TO c9|c9[(a7)]|A|>9 

The empty statement; no character at all, or a space. 

S' |lF & THEN S|lF £ THEN S' ELSE S|CASE £ OF BEGIN S^ END 
IWHILE e DO S|fOR =5':=e {[STEP £] UNTIL £K,e}*]DO S 



Descriptive 
Name 

block 

declaration 

type 

procedure heading 

program 






T 



Definition 



BEGIN {i9;}^ fS;|cJ:l^S END 



^ T <r^|T ARRAY «r*7(eTTe^) I PROCEDURE jl^; S 



|T PROCEDURE?^; (e|BEGIN [jB;}*tS; M:]*e END}|rECORD ^(T J*7 >) 
INTEGERI [long] [real IcOMPLEX} I logical I bits [(32) ] |STRING[(C) ] I REFERENCE («>,) 



+ 



c9[([T [VALUE] [RESULT] I [T] PROCEDURE}.* , |T ARRAY ^ ,{* ,);)] 



ON 



^ 



The Operators and Functions of ALGOL W, Their Formats, Meanings 

and Type Constraints 



Use of Symbols 

e. = any ALGOL W expression. 

01. - value of expression &,. 
1 1 

k. = kind of data represented by a. corresponding to expression &. 
The kinds of data are: 

1. N = numeric 

2. L = logical 

3. S = string 
k, B = bits 

5. R = reference 

d. = domain of a. when k. = N. 
1 11 

The domains are: 

1. I = integer 

2. R = real 

3. C = complex 

They are ordered as follows: I c: r c C. 

p. = precision of a. when k. = N. 
*^i 11 

They are ordered as follows: S < L. 

If d. = 1, then p. = L. 
1 ' '^i 



Format 



Meaning 



Kinds of Arguments Domains of Nimieric 
and Results Arguments and Results 



Precision of Ntooeric 
Arguments and Results 



00 



V^2 
V^2 



- e. 



e^ REM e^ 



ABS e-L 

LONG e^ 
SHORT e. 



of^ + «2 



a-L -0^2 



Of 



a 



?2. 



1 
"^1 

TRUNCATE (of^/a^) 

^1" ^^'l ^"^ °^2^* °^2' 
the remainder of 

Of, 



N + N -^N 
N - N -* N 
N * N -» M 
N/N-»N 

N-^N -» N 
+N -» N 
-N -^ N 

I DIV I -^ I 
I REM I -> I 



dj^+dg -^maxCdj^^dg) 
d^-dg -^max(d^,d2) 
d^^dg -^max(d^,d2) 

\/^2 "^ ^^(\y^2'^^ 



d^^I -^max(d^,R) 
+d^ -> d^ 
-d^ -. d^ 



Ofi 



ABS N -» N ABS d^ -^ min(d ,R) 

LONG N -^ N LONG d^ -> max(d^,R) 

SHORT N -» N 



P-L+P2 -♦ n»iJi(Pi>P2) 
P-^-Pg ->ntm(Pi*P2) 



P-L^2 "* ^ 



P1/P2 -^ittinCp^^Pg) 



p^*»«-L -^ p^ 

+P1-P1 
-Pi -Pi 



SHORT d^ -^ d^ 



ABS P-L -* PjL 

LONG p^ -♦ L where p^^s or d^ =1 

SHORT p, -» S where p^=L and d :|: I 



FoiToat 



Meaning 



Kinds of Arguments 
and Results 



Domains of Niameric Precision of Numeric 
Arguments and Results Arguments and Results 



&! OR &2 



e^ AM) &2 



0^1 V 0^2 



01^ A a^ 
1 2 



NOT a. 



^1 = ^2 


"1 


= "2 


^l--^2 


"1 


+ «2 


"l < "^2 


°^i 


<«2 


vo \ <= ^2 


"1 


<«2 


6l>=62 


"1 


>«2 


e^ > ^2 


"1 


>«2 


t^is^^ 


"1 


belongs to the 




record class e9 


e.^ SHL Cg 


"1 


shifted left 




«2 


places 


e^^ SHR eg 


"1 


shifted right 




"2 


places 


v.CCg 63) 


characters Q?^ 
through 




°'2 


+ a^ - 1 of a^ 



L OR L -* L 
B OR B -^ B 

L AND L -^L 
B AND B -» B 

—I L -» L 



-1 B -> B 

k, = kp -> L(where k. =k_) 

k^ -1= kp -> L(-where k^=kp) 



N < N^L 
S < S -»L 

N <= N -^ L 
S <= S -^ L 

N >= N -» L 
N >= S -» L 

N > N -^L 
S > S ^L 



R IS cJ^ -> L 



B SHL N -> B 



B SHR N -♦ B 



s(n|n) -*S 



any 
any 



32=1 



32=1 



dg = dj = I 



any 
any 
any 

any 

any 

any 



Format 



Meaning 



Kinds of Arguments 
and Results 



Domains of Numeric 
Arguments and Results 



Precision of Niameric 
Arguments and Results 



IF e, THEN t^ ELSE t^ 
1 2 p 



if 0?- then a , 
otherwise a. 



IF L THEN k ELSE k_ 



where 



k2=k3 = 



= k 



IF L THEN d_ ELSE d 



max 



(•^'V 



IF L THEN p ELSE Pp 



minCp^^Pg) 



CASE t^ of {ty,...rt^ ot^ (1 < (X^ n) 



CASE N OF (k^,k2, ...,kj 
-» k where 



w 



= k =: k 
n 



CASE L OF (d^,d2,...,dj 

-^ max(d^ • d^. • . . . d ) 
^ 1' 2 n' 



CASE L OF (p , ...,p ) 
-»min{p^, ...,p^) 



H 

8 



All the following functions have the format F(e-,), where F is the function name, 
We shall omit reference to the format, accordingly. 



Function 



Meaning 



Kinds 



Domains 



Precision 



TRUNCATE 

ENTIER 
ROUND 

ROUNDTOREAL 
REALPART 
IMAGPART 
IMAG 



The integer i, with the same sign 
as a,, such that 

.\oi^\ - 1< |i| < la^l 

The integer i such that 
a, - 1 < i < a. 



^ 



The integer ±, with the same' sign 
a , such that 

\a^\ - l/2< |i| < \oi^\ + 1/2 



J 



Of, 



The real part of a^ 

The imaginary part of a. 



N ->N 



N -*N 




•R -^ I 



R -» R 



C ->R 



d^ -^ C 
(\ C R) 



Any 



Any -» S* 
Any -» S* 



*Note: A asterisk on a short precision-result means that prefixing the letters LONG to the function 
name yields .a long precision result. 



o 

ro 



Function 



SQRT 



Meaning 



/oT", for a-, > 



EXP 



COMPLEXSQRT /S^ 

e , for a^ < 17^.6? 

log i°^-,)f ^^^ Of > 
log^Q (a^), for a^> 
sin(a^), for |a^|< 823550 
cos (a^), for |a^| < 823550 
tan {(x^)f in the range 



LN 

LOG 

SIN 

COS 

ARCTAN 



TIME 

ODD 
BZrSTRING 



(- tt/2, tt/2) 

elapsed time, in units of l/lOO 
minute if a^ = 0, otherwise in 

units of l/60 second. 



a_ is an odd number 

The sequence of bits which 
represents or. in binary. 

See manuals for details. 



^ 



J 



Kinds 



N ->N 



N -4N 



N -* N 



I -> I 

I -> L 
I -^ B 



Doma ins 

d^ -> R 
(d^ c R) 

Any -^ C 



d^ -^R 
(\ C R) 



Precision 
Any -^ S* 

Any -*S* 



Any -» S* 



Function 



Meaning 



Kinds 



Domains 



Precision 



NUMBER 



DECODE 



CODE 



BASEIO 



LONGBASEIO 
BASE16 



S 



L0NGBASE16 
INTBASEIO 

INIBASE16 



The integer which a_ represents 
in binary. 

The niimber which is used as a code 
for the character o^-i • 

The character for which a. is used 
as a code. 

A string of the foim WL2+lJ23k^67 
representing a. as a power of ten 

times a fraction, ("b represents a 
blank space) . 

As above, for b+12+123^56789012345 

A string of the form bb+12+123lf56 
representing a^ as a power of 

sixteen times a fraction, both in 
hexadecimal. 

As above, for bb+12+123if5678901254 

A string of the form b+123i^-567890 
representing a? in decimal. 

A string of the form bbbbl23i|-5678 
representing o?, in hexadecimal, 
using two's complement notation. 



B -» I 
S(l) -^ I 
I ^ S(l) 
N -^ S(12) 



N "* S(20) 
N -^ S(12) 



N -» S(20) 
I -> S(12) 

I -♦ S(12) 



^^ 



R 



d^c R 



^s 



R 



d^c R 



Any 



Any 
Any 



Any 
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